Паскаль. Вывести данный массив на печать в несколько строк таким образом,

Паскаль. Вывести заданный массив на печать в несколько строк таким образом, чтоб любая новенькая строчка, начиная со 2-ой начиналась с четного элемента массива

Задать свой вопрос
Люба Гверджите
Массив с клавы задаётся или нечаянно?
Агата
Задаётся
Нина Куткова
Количество элементов тоже с клавы?
1 ответ
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to N do
    Read(A[i]);

Write(A[1],' ');
For i:= 2 to N do
    Begin
    if A[i] mod 2 = 0 then WriteLn;
    Write(A[i],' ')
    End;
End.
Агата Благовещенская
Выводится все верно, но не выводится последний элемент: 19
Олеся Вусатова
Введите массив:3 5 1 10 -90 3 7 10 13 1919 5 1 10 -90 3 7 10 13 19
Виталий Пензов
Выводится
Элина Гасайниева
Причём два раза выводится.. поправил
Милена Харлашкина
Робит. Спасибо.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт