Var
A: array [1..4, 1..5] of real;
i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
A[i, j] := random*2-1;
write(A[i, j]:6:2, ' ');
if A[i, j] > 0 then z := z + 1;
end;
writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.
18.
Должна быть операционная система windows, т.к. у нее и MS Office один производитель: microsoft
19. Для подключения системного блока в сеть разъем 1 (Блок питания)
20. Принтер
Например бугалтер для расмотрении разных документов