1)
const n = 4; m = 4;
var A:array[1..n, 1..m] of integer;
i, j, iMax, jMax:integer;
begin
write('Заполнение - Матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
read(a[i, j])
end;
end;
write('Матрица:');
for i:=1 to n do begin
writeln;
for j:=1 to m do begin
write(a[i, j]:3, ' ');
end;
end;
iMax:=1;
jMax:=1;
for i:=1 to n do
for j:=2 to n do begin
if a[i, j] > a[iMax, jMax] then begin
iMax:=i;
jMax:=j;
end;
end;
writeln;
writeln('Максимальный элемент: A[', iMax, ', ', jMax, ']=', a[iMax, jMax]);
end.
Вторую не успел сделать, надо уехать.
Объяснение:
