Question

дан массив из 20 произвольных элементов каждый из которых не больше 1000 отсортируйте массив в порядке убывания

помогите пожалуйста

Answer 1

Ответ:

program q;

uses crt;

var l,a:array [1..20] of integer;

i,y,m:integer;

beginfor i:=1 to 20 doread(a[i]);

for y:=-1000 to 1000 dofor i:=1 to 20 dobeginm:=m+1;

if a[i]=y then l[m]:=a[i];

end;

for i:=1 to 20 dowrite(l[i]);

end.

Объяснение: