Напишите программу ** Паскале. Дан массив положительных и отрицательных чисел. Вычислить...

Question

Напишите программу на Паскале.
Дан массив положительных и отрицательных чисел. Вычислить сумму положительных и произведение отрицательных чисел.
А[1..10]

Comments

как заполнять массив

---

рандом или с клавиатуры?

Answer 1

Const m=10;
var
a:array[1..m] of integer;
i,sum,proz:integer;
begin
sum:=0;
proz:=1;
for i:=1 to m do
begin
read(a[i]);
if a[i]>0 then
sum:=sum+a[i]
else
ifa[i]<0 then<br>proz:=proz*a[i];
end;
writeln('Сумма положительных чисел= ',sum,' Произведение отрицательных чисел= ',proz);end.