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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.