Двумерный массив А (4;4) найдите максимальный элемент
Двумерный массив А (4;4) найдите максимальный элемент
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы