Составьте программу ввода с клавиатуры элементов массива a [1..10] и вывода на экран элементов с чётными значениями и чётными индексами
176
272
Ответы на вопрос:
Var ar: array[1..10] of integer; i,s: integer; begin; for i: =1 to 10 do readln(ar[i]); writeln('ok: '); for i: =1 to 10 do if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]); end.
Популярно: Информатика
-
Алино4ка1501.08.2020 21:53
-
kristinannm1705.02.2023 05:11
-
arisha20summer05.12.2020 12:52
-
Иван19992829.10.2020 15:02
-
mvchudakova21.03.2020 00:21
-
tema15233114.07.2020 08:11
-
66PrIvEt6666621.03.2023 23:01
-
ТыУмНыЙ26.07.2020 22:05
-
julyaloskutowaozd80409.05.2023 18:52
-
DimanGuy3208.06.2023 04:09