Программа нахождения четных чисел из 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.
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-ый
Новые вопросы