Помогите с последним заданием по информатике, пожалуйста!(
Найти наибольший элемент главной диагонали двумерного массива из 30 элементов.
Паскаль
Найти наибольший элемент главной диагонали двумерного массива из 30 элементов.
Паскаль
More Questions From This User See All
Answers & Comments
Verified answer
Для матрицы 6х6 (36 элементов):const n=6;
var
a:array[1..n,1..n] of integer;
i,j,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51);
write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
for i:=2 to n do
if a[i,i]>max then max:=a[i,i];
writeln('max = ',max);
end.
Пример:
Исходный массив:
32 14 6 10 45 8
39 31 5 28 18 15
3 19 19 18 35 0
42 27 36 28 8 10
5 13 40 10 41 10
35 12 18 17 31 4
max = 41