Подсчитать количество и сумму элементов массива, больших 10 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Подсчитать количество и сумму элементов массива, больших 10»

textual
Листинг программы
  1. const n=30;
  2. var a:array[1..n] of integer;
  3. i,cnt,sum:integer;
  4. BEGIN
  5. Randomize;
  6. cnt:=0;
  7. sum:=0;
  8. For i:=1 to n do a[i]:=Random(20);
  9. For i:=1 to n do
  10.   IF a[i]>10 THEN begin
  11.                          cnt:=cnt+1;
  12.                          sum:=sum+a[i];
  13.                          end;
  14. Writeln (sum);
  15. Writeln (cnt);
  16. END.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы