a: array [1..6, 1..5] of integer; i, j,n : longint;
begin for i:= 1 to 6 do for j:= 1 to 5 do read (a[i, j]); Writeln(); for j:= 1 to 5 do for i:= 1 to 5 do if a[2, i] > a[2, j] then swap(a[2, i], a[2, j]); for i:= 1 to 6 do begin for j:= 1 to 5 do write(a[i, j], ' '); Writeln(); end; end.
Answers & Comments
a: array [1..6, 1..5] of integer;
i, j,n : longint;
begin
for i:= 1 to 6 do
for j:= 1 to 5 do
read (a[i, j]);
Writeln();
for j:= 1 to 5 do
for i:= 1 to 5 do
if a[2, i] > a[2, j] then swap(a[2, i], a[2, j]);
for i:= 1 to 6 do begin
for j:= 1 to 5 do
write(a[i, j], ' ');
Writeln();
end;
end.