01 семестр / Задачи на Paskal / Array. Массивы / 07

Инфа бла-бла"
Ставим столб с минимальным значением перед столбом с максимальным или наоборот (х.з. проверьте сами - все работает);
**********************************************************program Project1;

{$APPTYPE CONSOLE}


type mas=array[1..100,1..100]of integer;

procedure input(var a:mas; var n,m:integer);
var i,j:integer;
begin
writeln('vvedyte N,M: ');
read(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
writeln('vvedyte element (',i,',',j,') :');
read(a[i,j]);
end;
end;
end;

procedure output(a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin writeln;
for j:=1 to m do begin
write(a[i,j],' ');
end;
end; writeln;
end;

procedure obmen(var a:mas; n,m:integer);
var i,j,nmin,nmax,t : integer;
max,min,sum:real;
begin

max:=a[1,1]; min:=a[1,1]; nmax:=1; nmin:=1;

for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]>max then begin max:=a[i,j]; nmax:=j; end;
if a[i,j]<min then begin min:=a[i,j]; nmin:=j; end;
end; end;

writeln('maximalnyv element v',nmax,' stolbe, raven ',max);
writeln('minimalnyy element v ',nmin,' stolbe, raven ',min);

if nmax<nmin then begin
for j:=nmax to nmin-2 do begin
for i:=1 to n do begin
t:=a[i,j+1];
a[i,j+1]:=a[i,j];
a[i,j]:=t; end; end; end

else begin
for j:=nmax downto nmin+1 do begin
for i:=1 to n do begin
t:=a[i,j-1];
a[i,j-1]:=a[i,j];
a[i,j]:=t;
end; end;end;
end;

var a:mas; n,m:integer; c:array[1..100]of real;

begin

input(a,n,m);
output(a,n,m);
obmen(a,n,m);
writeln('novaya matrica: ');
output(a,n,m);
readln;
readln;
end.