Работа в среде Турбо Паскаль. Двумерные массивы. Поиск наибольших и наименьших элементов

Поиск наибольших и наименьших элементов. Замена положений наибольшего и наименьшего

3) .
Program Pr_12_1;
const m=3; n=3;
var a:array[1..m,1..n] of real;
i,j,k,l:integer; amax:real;
begin
writeln('vvedite massiv');
for

: 1 2 3

5) Как надо изменить програм-му, чтобы организовать ввод массива в один столбец.
6) Провести вычисление по программе.
7) Изменить порядок элементов в матрице и провести новое вычисление.

3) .
Program Pr_12_2;
const m=3; n=3;
var a:array[1..m,1..n] of real;
i,j,k,l:integer; amin:real;
begin
writeln('vvedite massiv');
for

begin
amin:=a[i,j]; k:=i;l:=j;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:6:2);
writeln;
end;
writeln('amin=',amin:6:2);
writeln('stroka k=',k:2);
writeln('stolbec l=',l:2)
end.

: 1 2 3

5) Как надо изменить програм-му, чтобы организовать ввод массива в один столбец.
6) Провести вычисление по программе.
7) Изменить порядок элементов в матрице и провести новое вычисление.

Program Pr_12_2;
const m=3; n=3;
var a:array[1..m,1..n] of real;
i,j,imin,imax,jmin,jmax:integer;
amin,amax:real;
begin writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do read (a[i,j]);
writeln('vivedite massiv');
for i:=1 to m do begin
for j:=1 to n do write(a[i,j]:6:2);
writeln; end;
amin:=a[1,1]; imin:=1;jmin:=1;
amax:=a[1,1]; imax:=1;jmax:=1;

for i:=1 to m do for j:=1 to n do
if amin>a[i,j] then begin
amin:=a[i,j]; imin:=i;jmin:=j; end;
for i:=1 to m do for j:=1 to n do
if amaxamax:=a[i,j]; imax:=i;jmax:=j; end;
a[imin,jmin]:=amax;
a[imax,jmax]:=amin;
writeln('vivedite massiv');
for i:=1 to m do begin
for j:=1 to n do write(a[i,j]:6:2);
writeln; end;
end.

: 1 2 3

5) Как надо изменить програм-му, чтобы организовать ввод массива в один столбец.
6) Провести вычисление по программе.
7) Изменить порядок элементов в матрице и провести новое вычисление.