profile
Опубликовано 5 лет назад по предмету Информатика от ПолинаАкимова1

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

  1. Ответ
    Ответ дан Jekasad
    begin
    kk:=0;
    for i:=1 to 15 do begin
       a[i]:=random(1)+20;
       if(a[i]>10)then inc(kk);
    end;
    end;