Способы выводы элементов массива

Задания 2. Составьте программу ввода с клавиатуры элементов массива а[1..10] и вывода элементов массива на экран в столбец.
Program a1;
var a:array[1..10]of integer;
i: integer;
Begin
Writeln('Введите элементы массива а');
For i:=1 to 10 do
Readln(a[i]);
Writeln('Элементы массива:');
For i:=1 to 10 do
writeln(a[i]);
end.
Задание 3.
Составьте программу, которая позволяет вводить с клавиатуры элементы массива а[1..10], а затем выводит на экран в первую строку первые пять элементов массива, во вторую остальные пять элементов.
Program a1;
var a:array[1..10]of integer;
i: integer;
Begin
Writeln('Введите элементы массива а');
For i:=1 to 10 do
Readln(a[i]);
Writeln('Элементы массива:');
For i:=1 to 5 do
write(a[i],' ');
writeln;
For i:=6 to 10 do
write(a[i],' ');
end.
Задание 4.
Составьте программу, которая позволяет вводить с клавиатуры элементы массива а[1..10] и числа k1 и k2, а затем выводит на экран в одну строку элементы массива с индексами от k1 до k2.
Program a1;
var a:array[1..10]of integer;
i,k1,k2: integer;
Begin
Writeln('Введите элементы массива а');
For i:=1 to 10 do
Readln(a[i]);
Writeln('Введите начальный и конечный индекс массива');
Readln(k1,k2);
Writeln('Элементы массива:');
if (k1(написать больше)=1) and (k2(написать меньше)=10) and (k1(написать меньше)k2) then begin
For i:=k1 to k2 do
write(a[i],' ')
end
else writeln(' неправильно написали начальный и конечный индекс');
end.
Задание 5.
Составите программу ввода с клавиатуры элементов массива а[1..8] и вывода элементов массива в обратном порядке.
Program a1;
var a:array[1..8]of integer;
i: integer;
Begin
Writeln('Введите элементы массива а');
For i:=1 to 8 do
Readln(a[i]);
Writeln('Элементы массива:');
For i:=8 downto 1 do
write(a[i],' ');
end.
Задание 6.
Вывод на экран массив с нечетными индексами .
program prim3;
var a:array[1..10]of integer;
i: integer;
Begin
Writeln('Введите элементы массива а');
For i:=1 to 10 do
Readln(a[i]);
Writeln('Элементы массива с нечетными индексами:');
i:=1;
while i(меньше написать)=10 do
begin
write( a[i], ' ');
i:=i+2;
end;
end.
Задание 7.
program prim3;
var a:array[1..10]of integer;
i: integer;
Begin
Writeln('Введите элементы массива а');
For i:=1 to 10 do
Readln(a[i]);
Writeln('Элементы массива с четными индексами:');
i:=2;
while i(написать меньше)=10 do
begin
write( a[i], ' ');
i:=i+2;
end;
end.