Задание:
Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл for… downto). Если четных элементов нет, тодолжно быть напечатано соответствующее сообщение.
Решение:
Program gt; var a: array[1… 100]of longint; l,q,i,n: longint; beginread (n); for i: =1 to n dobeginread (a[i]); end; for i: =n downto 1 dobeginif (a[i]mod 2=0) then l: =i; end; write (l); end.
Знаете другой ответ?