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

Question

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

Comments

Массив с клавы задаётся или случайно?

---

Задаётся

---

Количество элементов тоже с клавы?

Answer 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.

Comments

Выводится все верно, но не выводится последний элемент: 19

---

Введите массив:
3 5 1 10 -90 3 7 10 13 19
19 5 1
10
-90 3 7
10 13 19

---

Выводится

---

Причём дважды выводится.. исправил

---

Робит. Спасибо.