Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел - Turbo Pascal

Формулировка задачи:

Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных чисел. напишите полностью програму)

Код к задаче: «Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел - Turbo Pascal»

textual
Const n=10;
Var b,c;
      a: array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
     If  a[i]>0 then b:=a[i]+b
     else
     inc(c);
Writeln(b,' ', c);
end.

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ