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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы