Предмет: Информатика,
автор: chaneloberlinbts
Найти сумму положительных, произведение и количество отрицательных из 10 введенных целых значений -7; 12; 13,5; -2; 0; 16; -4; 10,3; 1; -10,3.
Код программы написать на Паскале. На проверку нужно прислать код программы и результат работы в виде скриншота.
Ответы
Автор ответа:
2
Ответ:
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.
Объяснение:
Похожие вопросы
Предмет: Английский язык,
автор: ermolaeva545
Предмет: Русский язык,
автор: Хасар
Предмет: Другие предметы,
автор: аня620
Предмет: Русский язык,
автор: Ulia6682
Предмет: Литература,
автор: Аноним