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

Question

Ведя

21 июня, 13:40

+2

Ответы (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;