Дан массив целых чисел. Найти номер первого чётного элемента массива (массив просматривайте с конца, используя цикл for ... downto). Если чётных элементов нет, то должно быть напечатано соответствующее сообщение.

Question

Информатика

Авксентий

4 марта, 16:28

Дан массив целых чисел. Найти номер первого чётного элемента массива (массив просматривайте с конца, используя цикл for ... downto). Если чётных элементов нет, то должно быть напечатано соответствующее сообщение.

+5

Ответы (1)

Знаете ответ?

Селестина · Answer 1

Program gt;

var a:array[1 ... 100]of longint;

l, q, i, n:longint;

begin

read (n) ;

for i:=1 to n do

begin

read (a[i]) ;

end;

for i:=n downto 1 do

begin

if (a[i]mod 2=0) then l:=i;

end;

write (l) ;

end.