Ответы на вопрос:
program massiv; var a: array[1..15] of integer; i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(50)-25; if a[i]< 0 then a[i]: =0; writeln('a[',i,']=',a[i]); end; end.
Популярно: Информатика
-
Mehriban200716.11.2020 08:57
-
Иисус123415.04.2021 06:12
-
Даньок808.02.2022 07:50
-
aikena200524.08.2020 22:15
-
lev050580519.01.2020 02:52
-
GoodSmileEweryDay15.09.2021 21:02
-
dbjshsg25.11.2022 18:02
-
kimttaehyung17.09.2021 18:26
-
саня136207.03.2020 16:33
-
zahar6410.06.2022 17:05