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

Question

Информатика

Евстафия

21 июня, 14:51

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

+2

Ответы (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.