Заполнить массив из 15 элементов так, чтобы значение каждого элемента было в два раза больше его индекса. Заполнить массив из 10 элементов с клавиатуры. Вывести в первую строчку элементы с нечетными индексами. Во вторую строчку вывести четные элементы массива.

1.

var a:array [1 ... 15] of integer;

i:integer;

begin

for i:=1 to 15 do a[i]:=i*2;

write (a)

end.

2.

var a:array [1 ... 10] of integer;

i:integer;

begin

writeln ('Введите 10 элементов массива через пробел. Потом нажмите Enter.') ;

for i:=1 to 10 do read (a[i]) ;

write ('Элементы с нечётными индексами: ') ;

for i:=1 to 10 do if i mod 2 0 then write (a[i],' ') ;

writeln;

write ('Элементы с чётными индексами: ') ;

for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')

end.