Ответы на вопрос:
program a1; const n=10; var a: array[1..n] of integer; i: integer; beginfor i: =1 to n do begin read(a[i]); end; for i: = 1 to n do begin if a[i]< 0 then writeln('a[',i,']=',a[i]) endend.
Популярно: Музыка
-
Aydan66606.12.2020 00:50
-
Лизка25051515.05.2021 14:33
-
девочка25th15.03.2021 05:39
-
dreamsk83113.12.2020 23:39
-
Соничка5555502.11.2021 02:58
-
RoyaIHeII08.01.2023 22:42
-
donaldavis133723.06.2020 21:58
-
vladosik188531.08.2020 21:53
-
максик8816.05.2020 15:39
-
22145129.07.2022 08:47