Спрограммой в паскале, дан массив из n чисел. определить количество чисел, превышающих число 5. найти сумму этих чисел. напишите программу.. (одномерный массив)

205

393

Посмотреть ответы 2

Ответы на вопрос:

zokaa112

Информатика

4,6(24 оценок)

Program arr; var ar : array[1..100] of integer; i, size, count, sum : integer; begin writeln('введите размер массива'); readln(size); if (size > 100) then begin writeln('hазмер массива превышает 100 элементов. программа будет '); readln; end else begin writeln('введите ', size, ' чисел'); for i: =1 to size do begin readln(ar[i]); if ar[i] > 5 then begin inc(count); inc(sum, ar[i]); end; end; writeln('вы ввели ', i - 1, ' чисел из которых ', count, ' больше 5, а их сумма составляет ', sum); readln; end; end.