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;