Ответы на вопрос:
1.var a: array[1..100] of integer; n,s,i: integer; begin write('количество элементов='); readln(n); for i: =1 to n do begin readln(a[i]); end; for i: =1 to n do begin if a[i]> 0 then a[i]: =-a[i] else a[i]: =abs(a[i]); end; for i: =1 to n do begin write(a[i]: 3); end; end.
Популярно: Информатика
-
ЕлизаветаАлис06.02.2023 19:44
-
Andrew1233128.03.2021 16:24
-
marinamih18.05.2020 07:45
-
denver8727.01.2022 00:49
-
nastuaserova16.09.2022 16:11
-
Lik2037218.10.2022 09:22
-
20Lorans0318.12.2020 02:02
-
эля052110.05.2020 11:30
-
karinashakhbaz10.01.2020 18:30
-
tamaragladysheva31.05.2020 22:55