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

1. Нахождение наибольшего элемента главной диагонали. (Паскаль, двумерные массивы )

2. Нахождение наименьших элементов в столбцах массива. (Паскаль, двумерные массивы )

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

1) var a:array[1..100,1..100]of integer;i,j,n,max:integer;

begin

readln(n);

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);max:=a[n,1];

for i:=1 to n do

for j:=1 to n do

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

writeln(max);

end.