Задача НА ПАСКАЛЬ!!! безотлагательно!!! ДАЮ 80 БАЛЛОВ Сформировать одномерный массив, 1-ые

Задача НА ПАСКАЛЬ!!! безотлагательно!!! ДАЮ 80 БАЛЛОВ


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

Задать свой вопрос
Danil
Просто вдвое меньше предыдущего, либо предшествующего нечётного?
1 ответ
Const
   N = 13;
Var
   A:array[1..N] of longint;
   i:integer;
Begin
Write('1-ый элемент: ');ReadLn(A[1]);
Write('Второй элемент: ');ReadLn(A[2]);
For i:= 3 to N do
    Begin
    if i mod 2 lt;gt; 0 then A[i]:=2*A[i-1]
    else A[i]:=A[2]-3;
    Write(A[i],' ')
    End
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт