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

Question

Информатика

Алевтина

26 сентября, 22:26

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

+5

Ответы (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.