Question

Отсортировать массив по возрастанию последней цифры по строкам. Паскаль

Answer 1

const n=5;
var a:array[1..n,1..n] of integer;
i,j,v,l:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(30);
write(a[i,j]:4)
end;
writeln
end;
writeln;
for l:=n-1 downto 1 do
for i:=1 to l do
if a[i,n] > a[i+1,n] then
for j:=1 to n do
begin
v:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=v
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln
end;
readln
end.

Answer 2

А в чем смысл Вашего решения. Вот пример запуска Вашей программы, я не смог найти в результате признака сортировки

Answer 3

1 0 12 9 1
29 1 11 28 4
1 15 0 4 27
2 15 28 16 5
19 25 10 2 19

1 0 12 9 1
29 1 11 28 4
2 15 28 16 5
19 25 10 2 19
1 15 0 4 27

Answer 4

Разве что Вы строки переставили по возрастанию последней цифры в ПОСЛЕДНЕЙ колонке. Почему по последней?

Answer 5

А вот еще один запуск. Тут вообще неясен критерий сортировки

Answer 6

21 21 25 12 19
18 8 28 12 8
15 6 9 16 22
21 17 6 27 25
3 24 17 18 22

18 8 28 12 8
21 21 25 12 19
15 6 9 16 22
3 24 17 18 22
21 17 6 27 25