Question

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

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.

Answer 2

тогда так

Answer 3

Большое спасибо! Очень выручил.

Answer 4

а за какой класс эта задача? просто интересно

Answer 5

10-ый