Найди соответствие Для каждого типа данных выбери два
соответствующих значения
85
true
Proba
150
1.5
str
float
boolean
int

1) Ақпаратты бағдарламаға түрлендіру тапсырмасын орындайтын және барлық есептеу процестерін басқаруды жүзеге асыратын компьютердің орталық бөлігі.

2) Мақсатына сәйкес процессор регистрлері ерекшеленеді: аккумулятор - арифметикалық және логикалық операциялардың аралық нәтижелерін және енгізу-шығару нұсқауларын сақтау үшін қолданылады; ... контроллерлер - процессордың күйін басқаратын ақпараттарды, сонымен қатар жүйелік кестелердің адрестерін сақтайды.

3) Процессордың негізгі сипаттамалары:

• тактілік жиілік;

• разрядтылық;

• жұмыс кернеуі;

• кэш-жады өлшемі.

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.