ЗАДАЧКА ** ПАСКАЛЬ!!! срочно!!! ДАЮ 80 БАЛЛОВ Сформировать одномерный массив, первые два...

Question

ЗАДАЧКА НА ПАСКАЛЬ!!! срочно!!! ДАЮ 80 БАЛЛОВ


Сформировать одномерный массив, первые два элемента которого есть заданные числа, а остальные элементы с нечетными номерами в два раза больше предыдущего, а с четными – на 3 меньше второго.

Comments

Просто вдвое меньше предыдущего, или предыдущего нечётного?

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of longint;
   i:integer;
Begin
Write('Первый элемент: ');ReadLn(A[1]);
Write('Второй элемент: ');ReadLn(A[2]);
For i:= 3 to N do
    Begin
    if i mod 2 <> 0 then A[i]:=2*A[i-1]
    else A[i]:=A[2]-3;
    Write(A[i],' ')
    End
End.