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

Question

Информатика

Леня

29 мая, 17:10

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

+4

Ответы (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.