Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.
194
420
Ответы на вопрос:
Uses crt; var a: array[0..15] of integer; i: integer; begin for i: =1 to 15 do begin write(random(21)-10,' '); end; end.
Популярно: Информатика
-
Taddi22.02.2023 05:09
-
ncrfeed19.09.2020 07:28
-
Keonaks08.12.2021 16:15
-
playertony20001.12.2021 00:49
-
юлияlike130201.10.2020 18:17
-
maksdlernerwanemaks14.03.2021 16:34
-
Дамир000119.04.2020 10:15
-
Pomogashka200204.08.2021 00:47
-
veronika121708.02.2023 14:33
-
agapovaa200222.10.2022 22:16