Подсчитать количество и сумму элементов массива, больших 10 - Turbo Pascal
Формулировка задачи:
Заполнить одномерный массив с помощью датчика случайных чисел. Подсчитать количество и сумму элементов массива больших 10,вывести полученный результат.
Решение задачи: «Подсчитать количество и сумму элементов массива, больших 10»
textual
Листинг программы
- const n=30;
- var a:array[1..n] of integer;
- i,cnt,sum:integer;
- BEGIN
- Randomize;
- cnt:=0;
- sum:=0;
- For i:=1 to n do a[i]:=Random(20);
- For i:=1 to n do
- IF a[i]>10 THEN begin
- cnt:=cnt+1;
- sum:=sum+a[i];
- end;
- Writeln (sum);
- Writeln (cnt);
- END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д