Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Паскаль:
Написать программу для определения в двумерном массиве целых чисел D[6,6] максимальный элемент под главной диагональю. Оформить ввод/вывод массива.

Ответ оставил Гость

Var a:array [1..100, 1..100] of integer; 
i,j,max:longint; 
begin 
for i:=1 to 4 do 
for j:=1 to 4 do read(a[i,j]); 
max:=a[2,1]; 
for i:=1 to 6 do 
for j:=1 to 6 do 
if (a[i,j]>max) and (i>j) then max:=a[i,j]; 
for i:=1 to 6 do begin 
for j:=1 to 6 do write(a[i,j], ); 
writeln; 
end; 
writeln(Максимальный элемент под главной диагональю - ,max); 
end.