ТутРешу.Ру

Дан массив целых чисел

Задание:

Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл 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.




Знаете другой ответ?

Отправить свой ответ