Ответы на вопрос:
Uses crt; var a: array[1..8] of integer; x: integer; begin randomize; for x: =1 to 8 do begin a[x]: =random(6); writeln('a[',x,']: ',a[x]); end; writeln; for x: =1 to 8 do begin if a[x] mod 2=0 then a[x]: =a[x]*5 else a[x]: =a[x]-2; writeln('a[',x,']: ',a[x]); end; end.
Популярно: Информатика
-
Djama123423.05.2022 13:00
-
pascha210421.07.2022 00:23
-
Tigor11116.06.2021 04:39
-
alexcopes424.02.2023 18:24
-
57765624.06.2023 12:14
-
Noksiwin26.01.2023 21:19
-
ахаххахаха1114.09.2022 14:57
-
илья196729.12.2022 17:01
-
maga2008212.05.2021 03:23
-
Не00727.06.2022 20:29