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

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

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.