Доброго дня.
Помогите пожалуйста с программой, нужно в массиве найти ненулевые элементы с четными номерами и их количество.
Количество нашел, но как вывести на печать элементы удовлетворяющие условию?
Код:
uses
crt;
var
a: array[1..15] of integer;
i, n, k: integer;
begin
n := 15;
for i := 1 to n do
begin
writeln('a[', i, ']=');
readln(a[i]);
if (i mod 2 = 0) and (a[i] <> 0) then
inc(k);
end;
writeln('kol-vo elementov =', k);
end.