Написать программу
Пользователь вводит 5 целых чисел,программа находит сумму всех отрицательных и произведение всех положительных чисел
Ответы
Ответ дал:
0
uses CRT;
var i,s,p,a,n:integer;
begin
p:=1;
write('введите кол-во чисел ');
readln(n);
for i:=1 to n do begin
write('введите ',i,'число: ');
readln(a);
if a<0 then s:=s+a
else p:=p*a
end;
writeln('сумма отрицательных чисел равна: ',s);
writeln('произведение всех положительных чисел равно: ',p)
end.
как-то так)
var i,s,p,a,n:integer;
begin
p:=1;
write('введите кол-во чисел ');
readln(n);
for i:=1 to n do begin
write('введите ',i,'число: ');
readln(a);
if a<0 then s:=s+a
else p:=p*a
end;
writeln('сумма отрицательных чисел равна: ',s);
writeln('произведение всех положительных чисел равно: ',p)
end.
как-то так)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад