Написать программу в написать программу в паскале: в одномерном массиве из 10 целых чисел вычислить сумму четных
217
356
Ответы на вопрос:
Var a: array[1..10] of integer; sum, i: integer; beginsum: =0; for i: =1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum: = sum+a[i]; end; write(sum); end.
Популярно: Информатика
-
Маргошка5512.06.2020 06:37
-
булати06.04.2020 02:50
-
nazek12199214.11.2022 16:18
-
iraromanova200226.09.2020 18:27
-
rmandzinDhsha29.07.2020 09:53
-
Ghxvbvc1328.12.2022 22:33
-
кастусь28.08.2021 16:15
-
Artemko133718.07.2021 06:54
-
easyotvet0127.09.2021 07:52
-
vikakittenlove25.01.2021 21:30