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

Question

Информатика

Тереза

20 февраля, 19:24

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

+3

Ответы (1)

Знаете ответ на вопрос?

Ярослава · 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.