Паскаль. Сформировать одномерный массив, первые два элемента которого есть заданные числа
Сформировать одномерный массив, первые два элемента которого есть заданные числа, а остальные элементы с нечетными номерами в два раза больше предыдущего, а с четными – на 3 меньше второго.
По дате
По рейтингу
Допустим, массив на 100 элементов:
const n=100;
var a:array[1..n] of integer;i:integer;
begin
write('Первый элемент=');
readln(a[1]);
write('Второй элемент=');
readln(a[2]);
for i:=3 to n do
if i mod 2 <> 0 then a[i]:=2*a[i-1] else a[i]:=a[2]-3;
for i:=1 to n do write(a[i],' ')
end.
Вот так можно попробовать.
12345678910111213141516
var
a: array of integer;
i: integer;
begin
SetLength(a, 10);
a[0] := 1;
a[1] := 2;
for i := 2 to High(a) do
if i mod 2 = 0 then
a[i] := a[i - 2] - 3
else
a[i] := a[i - 2] * 2;
for i := 0 to High(a) do
Write(a[i], ' ');
Readln;
end.