Для массива a1,a2,a3,.....a15 получить сумму его положительных элементов и количество отрицательных элементов.

спасибо большое, можете вторую тоже попробовать решить?

Какую?

var a:array[1..15] of integer;s,n,i:integer;beginfor i:=1 to 15 do begina[i]:=random(+21)-10;if a[i]>0 then s:=s+a[i];if a[i]<0 then n:=n+1;end;writeln('Сумма-',s,' Кол-во-',n);end.