Вводятся m чисел, если ввели больше 10 то найти их сумму, если меньше 10 то найти произведение

Question

Информатика

Валерьяныч

2 сентября, 22:28

Вводятся m чисел, если ввели больше 10 то найти их сумму, если меньше 10 то найти произведение

+3

Ответы (1)

Знаешь ответ?

Вячеслав · Answer 1

Var

m, i: integer;

s, p, d: real;

begin

readln (m);

p : = 1;

s : = 0;

for i : = 1 to m do

begin

readln (d);

s : = s + d;

p : = p * d;

end;

if m > 10 then writeln (s);

if m < 10 then writeln (p);

end.