Заполнить массив произвольными числами. вывести полученный массив на экран. ( delphi7).
125
398
Ответы на вопрос:
Program project1; const n = 10; var a : array [1..n] of integer; i : integer; begin randomize; for i : = 1 to n do a[i]: = random(100); for i : = 1 to n do write(a[i],' '); end.
Популярно: Информатика
-
дарий83306.05.2021 07:24
-
Whatafaka71811.06.2022 02:11
-
максим12345987630.01.2023 22:09
-
marimuravskap08uv017.03.2023 04:59
-
svpp04.06.2023 05:32
-
ghostcatchy22.02.2020 18:36
-
sashasasha40402.06.2020 05:51
-
lera007831.01.2020 16:37
-
andrey44023.11.2021 23:41
-
raia020231.08.2022 00:05