Ввести двумерный массив A[N,M]. В каждой строке массива упорядочить элементы, стоящие после минимального элемента.
Есть кое какие наброски, но цикл не работает.
Код
Program ZAD_0;
uses crt;
var i,j,p,n,m,k,l,jmin:integer;
A: array [1..10, 1..15] of real;
f:real;
min:real;
begin
clrscr;
write ('N='); readln(n);
write ('M='); readln(m);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
read (a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:8:3 );
writeln;
end;
for i:=1 to n do
jmin:=1;
for j:=2 to m do
begin
if a[i,j]<a[i,jmin] then jmin:=j;
writeln(jmin);
end;
writeln;
writeln;
for i:=1 to n do begin
for j:=jmin+1 to m do begin
if a[i,j+1]<a[i,j] then begin
f:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=f;
end;
end;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write (a[i,j]:8:3);
end;
end;
readkey;
end.
uses crt;
var i,j,p,n,m,k,l,jmin:integer;
A: array [1..10, 1..15] of real;
f:real;
min:real;
begin
clrscr;
write ('N='); readln(n);
write ('M='); readln(m);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
read (a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:8:3 );
writeln;
end;
for i:=1 to n do
jmin:=1;
for j:=2 to m do
begin
if a[i,j]<a[i,jmin] then jmin:=j;
writeln(jmin);
end;
writeln;
writeln;
for i:=1 to n do begin
for j:=jmin+1 to m do begin
if a[i,j+1]<a[i,j] then begin
f:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=f;
end;
end;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write (a[i,j]:8:3);
end;
end;
readkey;
end.