Question

Двумерный массив А (4;4) найдите максимальный элемент

Answer 1

program nau;
var a: array [1..4, 1..4] of real; i,j: integer; k,l: real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
readln (a[i,j]);
end;
k:=a[1,1];
for i:= 1 to 4 do
for j:= 1 to 4 do
if a[i,j]>k 
then k:=a[i,j];
writeln ('наибольший элемент массива = ',k);
end.