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

Вводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочно надо.

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

var
s,p,n,i:integer;
mas: array[1..7] of integer;
begin
s:=0;
p:=1;
n:=0;
for i:=1 to 7 do
read(mas[i]);

for i:=1 to 7 do begin
if mas[i]>=0 then begin
s:=s+mas[i];
p:=p*mas[i];
end
else
n:=n+1;
end;

write(summa=, s, , proizvedenie=, p, , otrezatelnich=, n);
end.