Предмет: Информатика, автор: Lexxt7t

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

Ответы

Автор ответа: m0nclous
0
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.
Автор ответа: m0nclous
0
тогда так
Автор ответа: Lexxt7t
0
Большое спасибо! Очень выручил.
Автор ответа: m0nclous
0
а за какой класс эта задача? просто интересно
Автор ответа: Lexxt7t
0
10-ый
Похожие вопросы