Программа нахождения четных чисел из 10 любых на языке Pascal
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.
сойдёт?
Числа должен задавать я сам.
щас уберу лишнее тога
Буду признателен :-)
njulf nfr
тогда так
Большое спасибо! Очень выручил.
а за какой класс эта задача? просто интересно
10-ый
ясненько) удачи