Дан массив целых чисел,состоящий из 10 элементов. заполнить его с клавиатуры. найти сумму элементов кратных 3 и вывести элементы четных индексов.
162
275
Ответы на вопрос:
Const n=10; var a: array[1..n] of integer; i,s: integer; begin for i: =1 to n do readln(a[i]); s: =0; writeln('элементы с четными индексами: '); for i: =1 to n do begin if a[i] mod 3 = 0 then s: =s+a[i]; if i mod 2 = 0 then write(a[i],' '); end; writeln; writeln('s = ',s); end. пример: 12 87 65 45 19 73 42 84 21 34 элементы с четными индексами: 87 45 73 84 34 s = 291
Популярно: Информатика
-
oxle31.12.2021 05:36
-
radmila8501.07.2021 13:02
-
shchetko2006p013vy21.06.2020 05:20
-
Wely26.05.2022 01:50
-
нурана419.09.2021 16:09
-
СофариПарк324.02.2020 19:34
-
podshchipkova05.09.2021 03:35
-
Kot1232130.11.2021 15:02
-
Níkiskastarling2825.08.2022 23:39
-
kislayaya1301.02.2020 23:58