Просмотр поста

нашел задачу с матрицей на паскале

uses crt;

const n=5;
m=10;

var a:array[1..n,1..m] of integer;
i,j,min,max,imin,jmin,imax,jmax:integer;

begin
min:=0;
max:=0;
randomize;
clrscr;
writeln('Матрица 5x10 - ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:2,' ');
end;
writeln;
end;

for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
end;
a[imin,jmin]:=max;
a[imax,jmax]:=min;
min:=0;
max:=0;
writeln;
end;

writeln('Преобразованная матрица 5х10 - ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:2,' ');
end;
writeln;
end;

end.