Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Найти произведение положительных,сумму и количество отрицательных из 10 введенных целых чисел

Ответ оставил Гость

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.