Помогите пожалуйста) 1.Составьте программу ввода с клавиатуры элементов массива a[1..10]...

Question

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

Answer 1

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

Comments

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

---

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

---

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

---

Вот :)

---

Спасибо:)