Ответы на вопрос:
Var a: array[0..1000] of integer; k,i,n: integer; begin readln(n); for i: =1 to n do read(a[i]); dor k: =1 to n do begin if a[k]> 0 then a[k]: =a[k]+1; end; end.
Популярно: Информатика
-
антон77603.05.2022 12:59
-
emilgasanov07.12.2020 02:30
-
hermoguchiy21.09.2021 23:18
-
Aleksey456904.03.2023 16:08
-
gagikgrigoryan04.03.2020 07:12
-
лейла30923.08.2021 00:44
-
mariy210409.03.2021 05:58
-
SFDFGDDDDFGDGD24.07.2020 04:49
-
Катюха123Печенька14.07.2020 06:57
-
boatengknhalotldze18.05.2023 15:53