Продолжи алгоритм сортировки выбором 2 8 6 1 3 2[6 строчек начиная с первой]

Question

Информатика: Продолжи алгоритм сортировки выбором 2 8 6 1 3 2[6 строчек начиная с первой]​

ggg294 · Accepted Answer

Const m=5;
var
a:array[1..m,1..m] of integer;
i,j:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=2 to m do
for j:=1 to i-1 do
a[i,j]:=0;
writeln('Полученный массив:');
for i:=1 to m do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.

Пример:
Исходный массив:
12 76 20 65 71
27 52 36 45 52
9 69 8 69 46
89 69 52 76 31
71 25 7 62 89
Полученный массив:
12 76 20 65 71
0 52 36 45 52
0 0 8 69 46
0 0 0 76 31
0 0 0 0 89

Продолжи алгоритм сортировки выбором 2 8 6 1 3 2[6 строчек начиная с первой]​

MOGZ ответил