Question

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

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);