Задать вопрос
4 марта, 16:28

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

+2
Ответы (1)
  1. 4 марта, 18:57
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив целых чисел. Найти номер первого чётного элемента массива (массив просматривайте с конца, используя цикл for ... downto). Если ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы