Ответы на вопрос:
Const k = 1000; var a: array[1..k] of integer; i,n: integer; begin writeln('введите n '); readln(n); for i: =1 to n do begin if i mod 2 = 0 then a[i]: =i+1; write(a[i],' '); end; end. тестовое решение: введите n 10 0 3 0 5 0 7 0 9 0 11
Популярно: Информатика
-
alenaafaunova10.09.2020 02:38
-
veshove23.06.2021 07:42
-
aisasiada02.11.2022 01:22
-
stepdol19.01.2022 13:03
-
Tandy05.06.2020 10:43
-
Кисулятв17.06.2023 13:08
-
6VikaPika925.06.2021 13:48
-
vinnnner20.06.2022 11:31
-
MEhelpYOU19.05.2023 16:18
-
dima103125.03.2022 05:33