Заполнить массив из 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.