Дан массив размера N. Вывести вначале его элементы с четными индексами, а затем - с нечетными

Question

Информатика

Натоля

21 декабря, 02:16

Дан массив размера N. Вывести вначале его элементы с четными индексами, а затем - с нечетными

+3

Ответы (1)

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

Лидуха · Answer 1

Const

N = 13;

Var

A:array[1 ... N] of integer;

i:integer;

Begin

Randomize;

For i: = 1 to N do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ')

End;

WriteLn;

i:=1;

While i < = N do

Begin

Write (A[i],' ') ;

i:=i+2;

End;

WriteLn;

i:=2;

While i < = N do

Begin

Write (A[i],' ') ;

i:=i+2;

End;

End.