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

Question

Информатика

Петуша

23 ноября, 00:59

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

+5

Ответы (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.