1. Опишите массив для 100 целых чисел
2. Задайте массив, состоящий из пяти случайных элементов, не превышающих по значению число 50.
3. Задайте массив, состоящий из 1000 элементов, каждый их которых в 2 раза больше, чем предыдущий.
230
440
Ответы на вопрос:
1.
const N = 10;
var a: array [1..N] of integer;
i, x: integer;
begin
write('Введите x: ');
readln(x);
for i := 1 to N do
begin
a[i] := x + i - 1;
write(a[i], ' ');
end;
end.
2.
const N = 10;
var a: array [1..N] of integer;
i: integer;
begin
a[1] := 1;
a[2] := 1;
for i := 3 to N do
begin
a[i] := a[i-1] + a[i-2];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
3.
const N = 6;
var a: array [1..N] of integer;
i, x: integer;
begin
a[N] := 1;
for i := N-1 downto 1 do
begin
a[i] := 2 * a[i+1];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
Объяснение:
Популярно: Информатика
-
динара26530.07.2022 11:22
-
shurik2302198312.12.2022 11:15
-
nikihouston34218.01.2021 04:34
-
123456781244567267623.04.2020 14:36
-
Lizankanahovicyn24.07.2022 05:31
-
фывапрпиол09.07.2021 20:26
-
SaneckTupit24.10.2021 10:32
-
Fredbreyn19.02.2022 06:28
-
kuryachelenaozmgnz10.11.2021 14:14
-
Марк080820.01.2022 02:55