Найти сумму положительных, произведение и количество отрицательных из 10 введенных целых значений -7; 12; 13,5; -2; 0; 16; -4; 10,3; 1; -10,3. Код программы написать на Паскале. На проверку нужно прислать код программы и результат работы в виде скриншота.

uses crt;

var a,t,i,k,w:integer;

begin

t:=1;

for i:=1 to 10 do

begin

read(a);

if a > 0 then t:=t*a;

if a < 0 then begin k:=k+a; w:=w+1; end;

end;

writeln('Произведение положительных = ',t);

writeln('Сумма отридцательных  = ',k,'а их количество = ',w);

end.

Объяснение: