Задание:
Ввести 7 чисел, и посчитать количество больше нуля и сумму чисел меньше или равных 0.
Решение:
uses crt; var a: array[1… 7] of integer; s,n,i: integer; beginwriteln ('Введите 7 чисел: '); for i: =1 to 7 do begin readln (a[i]); end; n: =0; s: =0; for i: =1 to 7 do begin if a[i]>0 then n: =n+1 else s: =s+a[i]; end; writeln ('Количество положительных чисел: ',n); writeln ('Сумма неположительных чисел: ',s); end.
Знаете другой ответ?