Вывести массив из 10 целых чисел с клавиатуры. Вывести количество элементов с чётными...

Question

Вывести массив из 10 целых чисел с клавиатуры. Вывести количество элементов с чётными порядковыми номерами.

Answer 1

const

 n=10;

var

 a:array [1..n] of integer;

 i:integer;

begin

 for i:=1 to n do

   readln(a[i]);

 writeln;

 write('Count: ',n div 2);

end.