Каждая материальная система является источникм информации
program raf105;
const
n = 5;
var
a:array[1..n] of integer;
i,max: integer;
begin
max:= -10000;
writeln('Заполните массив:');
for i:=1 to n do
begin
readln(a[i]);
if a[i] > max
then max:= a[i];
end;
writeln('Наибольший элемент: ',max);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Var
a: array [1..N,1..N] of real;
i: integer;
j: integer;
kol: real;
begin
// ввести значения массива a вашим любимым способом
for i:=1 to N do
for j:=1 to N do
if a[i,j]=0 then
kol=kol+1;
write('Количество нулей: ', kol);
end.