Паскаль, написать программу: Организовать с клавиатуры ввод N произвольных целых чисел. Определить количество отрицательных и сумму положительных.

Question

Информатика

Мияся

11 сентября, 13:59

Паскаль, написать программу: Организовать с клавиатуры ввод N произвольных целых чисел. Определить количество отрицательных и сумму положительных.

+4

Ответы (1)

Знаете ответ на вопрос?

Райли · Answer 1

Var

n, i, a, kotr, sumpol: longint;

begin

readln (n) ;

kotr : = 0;

sumpol : = 0;

for i : = 1 to n do begin

read (a) ;

if (a < 0) then

inc (kotr)

else

sumpol : = sumpol + a;

end;

writeln ('Количество отрицательных чисел = ', kotr) ;

writeln ('Сумма положительных чисел = ', sumpol) ;