Вводятся m чисел , если ввели больше 10 то найти их сумму , если меньше 10 то найти произведение
150
212
Ответы на вопрос:
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.
Популярно: Информатика
-
vityastah09.01.2021 13:23
-
lspkorvo25.12.2020 10:26
-
savech1128.07.2021 05:13
-
urokiiiii16.06.2021 10:23
-
milkivey330.05.2022 07:02
-
Petrov20010404.01.2023 03:59
-
jlenabalkinaoyqk9314.06.2021 13:07
-
Liza03111126.01.2021 18:25
-
bobrovnikova1308.04.2023 06:43
-
famin1981011.08.2020 19:11