Составить программу,которая: отрицательные элементы массива заменяет на 0
118
290
Ответы на вопрос:
Var a: array of integer; i, n: integer; begin readln(n); setlength(a, n); for i : = 0 to n - 1 do read(a[i]); for i : = 0 to n - 1 do begin if a[i] < 0 then a[i] : = 0; write(a[i], ' '); end; end.
Популярно: Информатика
-
olga1408124.02.2021 08:55
-
lizench30.12.2022 23:30
-
Аааоо022.05.2023 21:29
-
Helponator05.03.2020 18:17
-
firudinnerimano19.09.2021 18:39
-
Радужныйединорог152623.08.2021 14:44
-
alesia425.04.2022 12:11
-
BekaBeka00124.01.2021 17:15
-
buster4316.02.2021 03:12
-
kseniatrof07.02.2023 17:56