Предмет: Информатика,
автор: Lexxt7t
Программа нахождения четных чисел из 10 любых на языке Pascal
Ответы
Автор ответа:
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.
Автор ответа:
0
тогда так
Автор ответа:
0
Большое спасибо! Очень выручил.
Автор ответа:
0
а за какой класс эта задача? просто интересно
Автор ответа:
0
10-ый
Похожие вопросы
Предмет: Окружающий мир,
автор: evelinacernogaeva65
Предмет: Литература,
автор: Apple2178
Предмет: Биология,
автор: margarita770
Предмет: Биология,
автор: Алексей168