Помогите пожалуйста)
1.Составьте программу ввода с клавиатуры элементов массива a[1..10] и вывода на экран элементов с четными значениями и четными индексами.
Пример ввода:4 5 6 3 9 8 4 10 7 2
2.Составьте программу,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы,значения которых больше 5 и меньше 15.

Это первая задача, сейчас решу и вторую.

Спасибо огромное)

Program enot;Var a: array [1..10] of integer;i: integer;beginfor i:= 1 to 10 doa[i]:= random(21)+1;for i:= 1 to 10 doif (a[i]>5) and (a[i]<15) then write(a[i],'; ');end.

Вот :)

Спасибо:)

Program enot;Var a: array [1..10] of integer;i: integer;beginfor i:= 1 to 10 doread(a[i]);for i:= 1 to 10 doif (i mod 2=0) and (a[i] mod 2 =0) then write(a[i],'; ');end.