У меня назрел вопрос, который я хотел бы обсудить. Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).

var

    i, n : integer;                      // объявляем переменную целочисленного типа.

    arr : array of integer;          // объявляем массив.

Begin

       readln(n);                       // задаем размер массива.

       setlength(arr, n);            // выделяем память под массив.

       for i:= 0 to n-1 do        // начало цикла.

          begin

              arr := random(0, 100); // заполняем элемент массива с индексом i случайным числом.

              if arr mod 2 = 0 then    //проверяем четность элемента массива.

              write(arr, ' ');              // вывод четного элемента массива на экран.

          end;

End.