как сделать что бы в массиве в результате программы на экране появлялись только четные числа из веденных?

Рассмотрим пример решения данной задачи на языке Паскаль.

var  arr : array[0..50] of integer;   // объявляем массив, размерностью 50.  i, sum :integer;                     // объявляем переменные целочисленного типа. begin   for i := 1 to 50 do // начало цикла.     begin       arr[i] := random(1,50);      // заполняем элемент массива случайным числом от 1 до 50.       if (arr[i] mod 2 = 0) then   // проверяем четность числа.         write(arr[i],\' \');               // выводим элемент массива на экран, если это четное число.     end; end.