Условие задачи: В одномерном массиве X i (i = 1…5) найти количество элементов с нечетными индексами, оформить в виде процедуры. В основной программе организовать ввод и вывод массива, и вывод количества.
Помогите, пожалуйста.
Код
const N = 5;
procedure CountOdddIndex(var Count : integer);
var i : integer;
begin
Count := (N+1) div 2;
end;
var
A :array[1..N] of integer;
Cnt : integer;
begin
CountOdddIndex( cnt );
WriteLn('В массиве ровно ', cnt, ' элемента(-ов) с нечётными индексами.')
end.
Я сделал все кроме ввода и выводы массива, помогите доработать, пожалуйста!
