лабораторная работа / 2-3 Сортировка строк / DVUMER_3

program Dvumer_3;

var a : array[1..100,1..100] of real;

i,j,l,N,M : integer;

c : real;

function FindMin(bn,bm : integer) : integer;

var k : integer;

min : integer;

begin

min := bm;

for k:=bm+1 to M do

if a[bn,k]<a[bn,min] then min:=k;

FindMin:=min;

end;

begin

Writeln('BBeDuTe N u M:');

Read(N,M);

for i:=1 to N do

for j:=1 to M do begin

Write('a[',i,',',j,']= ');

Read(a[i,j]);

end;

for i:=1 to N do

for j:=1 to M do begin

c:=a[i,j];

l := FindMin(i,j);

a[i,j]:=a[i,l];

a[i,l]:=c;

end;

for i:=1 to N do begin

for j:=1 to M do

Write(a[i,j]:6:2,' ');

WriteLn;

end;

ReadLn;

ReadLn;

end.

да

Программа

c = a[i,j]

l =FindMin(i,j)

a[i,j] = a[i,l]

a[i,l] = c

Функция FindMin

min = bm

min = k

FindMin = min

нет