Дан массив. рассортировать элементы массива по убыванию. - вопрос №9585464 от ITyanI 19.04.2020 23:47

Question

Информатика: Дан массив. рассортировать элементы массива по убыванию. program sortirovka; var n, k, z, x : integer; a : array[1..50] of integer; begin write( введи размер массива: ); readln(n); for k: =1 to n do a[k]: =random(10)-7; writeln( исходный массив: ); for k: =1 to n do write(a[k], ); for z: =1 to n-1 do for k: =1 to n-z do if a[k] then begin x: =a[k]; a[k]: =a[k+1]; a[k+1]: =x end; writeln; writeln( рассортированный массив: ); for k: =1 to n do write(a[k], ); end.

ITyanI · Answer

program sortirovka;

var n, k, z, x : integer;

a : array[1..50] of integer;

begin

write('введи размер массива: '); readln(n);

for k:=1 to n do a[k]:=random(10)-7;

writeln('Исходный массив:');

for k:=1 to n do write(a[k],' ');

for z:=1 to n-1 do

for k:=z+1 to n do

if a[k]>a[z] then begin

x:=a[k];

a[k]:=a[z];

a[z]:=x

end;

writeln;

writeln('Рассортированный массив:');

for k:=1 to n do write(a[k],' ');

end.