Ответы на вопрос:
Var a: array[1..100] of integer; i: integer; begin for i: =1 to 100 do begin a[i]: =random(100)+1 if ((i mod 2)=0) then write(a[i]," "); end; end.
Популярно: Информатика
-
Даун76620.07.2020 08:44
-
невидома31.05.2021 13:27
-
tatuxa22302.06.2023 15:31
-
iljapradunp06w1114.07.2021 18:57
-
gleb2284818.12.2021 13:07
-
mashaolean17.01.2020 16:21
-
agnesa989027.06.2020 04:02
-
Denchik01TURBO27.06.2023 15:58
-
12345152816.03.2023 18:07
-
sonya19oo05.04.2021 21:41