Ответы на вопрос:
Const n=10; var a: array[1..n] of real; sum: real; i: byte; begin writeln('введите числа'); for i: =1 to n do read(a[i]); sum: =a[1]; for i: =2 to n do sum: =sum+a[i]; writeln('сумма равна = ', sum); end.
Популярно: Информатика
-
виолетта11111111111308.07.2021 21:10
-
Nelia8826.02.2021 21:18
-
Даня123322130.01.2023 11:10
-
Юлёк143212.03.2023 01:20
-
Liphan12.10.2022 14:32
-
vitaliysv20031314.04.2020 19:23
-
Bandit00925.08.2021 16:55
-
Krisitnka24.08.2022 09:25
-
yliuagulian18.08.2020 03:57
-
kiramillerthe103.12.2020 19:46