Question

На языке паскаля. Сформируйте случайным образом массив из 20 элементов. Значения элементов должны находиться в интервале от 1 до 20. выполняющий цифровую сортировку массива (предусмотрите вывод результата каждой итерации в сортировке).

Answer 1

Ответ:

program z1;

const n =10;

var a:array[1..n]of integer;

i,j,m,z,r:integer;

begin

write('Массив: ':12);  

for i:= 1 to n do  

begin

a[i]:= random(20)+1;

write(a[i]:5)

end;

writeln;

for i:=1 to n-1 do

begin

m:=i;

for j:=i+1 to n do

if a[j] < a[m] then m:=j;

z:=a[i];

a[i]:=a[m];

a[m]:=z;

write(i,' итерация: ');  

for r:= 1 to n do write(a[r]:5);

writeln

end;

write('Массив: ':12);  

for i:= 1 to n do write(a[i]:5)

end.