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

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

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.