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

Question

Ведя

20 июля, 18:21

+4

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