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

const m=10;vara:array[1..m] of integer;i,sum,proz:integer;beginsum:=0;proz:=1;for i:=1 to m dobeginread(a[i]);if a[i]>0 thensum:=sum+a[i]elseifa[i]<0 thenproz:=proz*a[i];end;writeln('Сумма положительных чисел= ',sum,' Произведение отрицательных чисел= ',proz);end.