В двухмерном массиве А (4,4) найти наибольший элемент, лежащий на главной диагонали

Question

Информатика

Всеслав

16 февраля, 12:02

В двухмерном массиве А (4,4) найти наибольший элемент, лежащий на главной диагонали

+1

Ответы (1)

Знаете ответ на вопрос?

Игуся · Answer 1

Var

a: array[1 ... 4,1 ... 4]of integer;

i, j, max: integer;

begin

max:=-MaxInt;

for i : = 1 to 4 do

for j:=1 to 4 do

begin

read (a[i, j]) ;

if (i=j) and (a[i, j]>max) then max:=a[i, j];

end;

writeln ('max = ', max) ;

end.

abs pascal