Программа нахождения четных чисел из 10 любых на языке Pascal

Question

Информатика

Аза

24 февраля, 04:13

Программа нахождения четных чисел из 10 любых на языке Pascal

+1

Ответы (1)

Знаете ответ?

Марьяна · Answer 1

Var

mas:array[1 ... 10]of integer;

i:integer;

Begin

write ('Введите 10 чисел: ') ;

for i:=1 to 10 do readln (mas[i]) ;

write ('Четными являются: ') ;

for i:=1 to 10 do if (mas[i] mod 2 = 0) then write (mas[i],' ') ;

End.