Question

!!!!!!срочно!!!!Найти наибольший элемент матрицы
даю 35 баллов​

Answer 1

Ответ:

program z1;

const n=5; m=3;

var a:array [1..n,1..m] of integer;

i,j,ne:integer;

begin

writeln ('Матрицa: ');

for i:= 1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=Random(90)+10;

write(a[i,j]:5)

end;

writeln

end;

ne:=a[1,1];

for i:= 1 to n do

for j:=1 to m do

if a[i,j]>ne then ne:=a[i,j];

writeln ('Наибольший элемент матрицы: ',ne)

end.

Объяснение:

Задаём матрицу

Выводим её на экран

Присваиваем переменной для наибольшего элемента (ne) значение первого элемента матрицы

Сравниваем остальные элементы матрицы с ним, если они больше, то меняем значение переменной