Ответы на вопрос:
Var x: array [1..15] of integer; i: integer; begin writeln('введите массив'); for i: =1 to 15 do begin read(x[i]); if x[i]< 0 then x[i]: =1 else x[i]: =5; end; for i: =1 to 15 do write(x[i],' '); end.
Популярно: Информатика
-
shakhzadinad18.09.2021 08:36
-
Тимофейзъ02.03.2021 03:41
-
aldera119.03.2022 07:36
-
саня136111.05.2021 13:47
-
Jere55809.09.2022 08:48
-
Nik228tyto4ki02.08.2022 23:33
-
juanabakar09.01.2023 14:59
-
Daisy1530.09.2020 05:00
-
dianapanova200412.01.2023 20:27
-
2508sanya03.06.2023 15:18