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

Question

Мариня

12 октября, 13:41

+3

Ответы (1)

Знаете ответ?

Малинья · 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;