Ответы на вопрос:
Var arr: array[1..100] of real; n: integer; sum, op: real; i: integer; begin write('vvedite n '); readln(n); for i : = 1 to n do begin write('vvtdite ',i,'-oe chislo '); readln(arr[i]); end; sum : = 0; for i : = 1 to n do sum : = sum + arr[i]; writeln('summa= ', sum); end.
Популярно: Информатика
-
likery21.04.2022 16:14
-
Джахаршин808.12.2020 02:11
-
dorof07715.11.2022 16:16
-
2РАД1117.03.2023 17:30
-
hades7720.04.2020 20:14
-
rortat3222.02.2023 04:10
-
skydux29.06.2021 16:18
-
Кириджа11430.05.2020 14:01
-
karinasing09.03.2022 01:35
-
vik561123.02.2023 11:32