Составить массив из 10 целых чисел и подсчитать сумму отрицательных и количество положительных.

Question

Информатика

Полактия

24 января, 19:14

Составить массив из 10 целых чисел и подсчитать сумму отрицательных и количество положительных.

+2

Ответы (1)

Знаешь ответ?

Фелициана · Answer 1

Program chisla;

Var A: array [1 ... 10] of integer;

o, p, i:integer;

Begin

For i:=1 to 10 do Readln (A[i]);

For i:=1 to 10 do Begin

If A[i]<0 then o:=o+A[i];

If A[i]>0 then p:=p+1;

End;

Write ('Сумма отрицательных = ', o,'.'); Writeln ('');

Write ('Количество положительных = ', p,'.');

End.