Ответы на вопрос:
Program sum; var n, i, s: integer; a: array[1..1000] of integer; begin write('vvedite n'); readln(n); write('vvedite n chisel'); for i : = 1 to n do read(a[i]); s : = 0; for i : = 1 to n do s : = s + a[i]; write('summa ravna', s) end. проверь так?
Популярно: Информатика
-
gebatible77730.03.2023 04:18
-
Ккамв19.01.2022 00:10
-
СашаВай108.10.2021 22:42
-
Montyzzzz28.05.2023 06:26
-
talex26052006в16.03.2023 05:33
-
shivaco24.11.2021 05:20
-
omar2824.04.2022 06:08
-
TIME6ONLINE14.06.2021 09:01
-
tomikyrmash23.05.2021 18:57
-
annamajoriva95327.02.2023 01:31