Ответы на вопрос:
ответ:
program arr1; // ввод с клавиатуры
var
i: integer;
a: array [1..10] of integer;
begin
for i : = 1 to 10 do begin
write ('введите ', i , 'число: ');
readln (a [i]);
end;
for i : = 1 to 10 do
write (a [i], ' ');
readln;
end.
program arr1; // ввод по формуле (i * 2) можно поменять на другую
var
i: integer;
a: array [1..10] of integer;
begin
randomize;
for i : = 1 to 10 do
a [i] : = i * 2;
for i : = 1 to 10 do
write (a [i], ' ');
readln;
end.
program arr1; // ввод рандомом - это то что на скриншоте экрана, только добавлено randomize; чтобы числа были не всегда одинаковые
var
i: integer;
a: array [1..10] of integer;
begin
randomize;
for i : = 1 to 10 do
a [i] : = random (50);
for i : = 1 to 10 do
write (a [i], ' ');
readln;
end.
объяснение:
Популярно: Информатика
-
sobik2114.07.2022 20:36
-
EvilIncognito15.04.2020 11:15
-
ratmir2rat25.08.2022 16:27
-
StarAl7319.09.2022 07:24
-
lauraumirzhan5501.12.2021 01:05
-
Irisha198608.06.2022 00:08
-
sassshaaa26.03.2020 14:07
-
KapEwa01.04.2023 20:52
-
перйзат21.03.2023 14:11
-
jokertop66622.09.2022 11:19