Программа нахождения четных чисел из 10 любых на языке Pascal
Программа нахождения четных чисел из 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.
Не нашли ответ?
Похожие вопросы