Как переделать программу, что бы она выводила номер первого четного элемента, а не последнего

[email protected] в категроии Информатика, вопрос открыт 28.09.2017 в 18:40

const
nmax = 100;

var
i, n, ind: integer;
A: array[1..nmax] of integer;

begin
repeat
write('Введите N: ');
readln(n);
until (0 < n);
writeln('Введите ', n, ' элементов');
for i := 1 to n do
read(A[i]);
ind := 0;
for i := 1 to n do
if A[i] mod 2 = 0 then ind := i;
if ind > 0 then writeln('Индекс последнего чётного элемента = ', ind)
else writeln('0');
readln;
end.