1) Заполнить массив A, состоящий из n (1<=n<=10000) элементов случайными целыми числами в диапазоне [-10^9 ... + 10^9].

2) Отсортировать массив A в порядке неубывания элементов.

Var a:array[1 ... 10] of integer;

i:integer;

Begin

For i:=1 to 10 do

a[i]:=Random (10) + 1;

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

For i:=1 to 10 do

begin

write (a[i], ' ') ;

end;

writeln;

writeln ('Есть ли в массиве элемент, равный 5?') ;

if a[i]=5 then write ('Да') else write ('Нет')

End.