Составьте программу ввода с клавиатуры элементов массива 1.10 и вывода на экран элементов с чётными индексами
231
263
Ответы на вопрос:
Program massiv; var a: array [1..10] of integer; i, x: integer; begin for i: =1 to 10 do readln(a[i]); for x: =1 to 10 do if (a[x] mod 2 = 0) and (a[x] > 0) then writeln(a[x]); end.
Популярно: Информатика
-
kotkat201423.07.2022 09:17
-
Илья28138223.07.2022 07:50
-
школота9029.03.2020 17:30
-
vevvrqc09.06.2021 21:31
-
loginov55521.03.2023 21:19
-
Сложное12303.08.2021 21:53
-
zzsasz3304.10.2020 06:23
-
rus28801.09.2022 01:02
-
layreddota225.08.2021 10:26
-
leralagbibl21.08.2022 13:01