1)Дан массив из 10 чисел. Найти произведение положительных чисел. 2)Дан массив из 10 чисел. Найти сумму отрицательных.

Program t1;Var A: array [1..10] of Integer; i: Byte; s: Longint;Begins:=1;For i:= 1 to 10 doBeginReadln (A[i]);If A[i]>0 thens:=s*A[i];End;Write (s);Readln;End.Для отрицательных чисел замени A[i]>0 на A[i]<0 , s:=s*A[i] на s:=s+A[i] и s:=1 убери