Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив по...

Question

Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив по убыванию. Подсчитать количество элементов больше 10, вывести результат.

Answer 1

Begin
kk:=0;
for i:=1 to 15 do begin
   a[i]:=random(1)+20;
   if(a[i]>10)then inc(kk);
end;
end;