Ответы на вопрос:
1) var mas: array [1..10] of integer; i: integer; begin for i: =1 to 10 do read(mas[i]); for i: =1 to 10 do begin if mas[i]< 0 then write(abs(mas[i]),' ') else write(-mas[i],' '); end; end. 2) var mas: array [1..10] of real; i: integer; begin for i: =1 to 10 do read(mas[i]); for i: =1 to 5 do write(mas[i]*2,' '); for i: =6 to 10 do write(mas[i]/2,' '); end.
Популярно: Информатика
-
haru200003.08.2022 14:48
-
вопрос6537826.02.2022 23:54
-
ALEXIA2414.10.2022 21:08
-
observatorshkip06tpd16.03.2021 20:11
-
gimnastikgirla09.01.2021 11:44
-
настя20033615.08.2022 20:31
-
pidarok228118.09.2021 12:03
-
Perestroika02.01.2022 02:05
-
nastya23rwa13.03.2020 15:43
-
RitaTrott05.01.2023 02:46