Выяснить, каких цифр больше: четных или нечетных?
Выяснить, каких цифр больше: четных или нечетных?
Гость
Ответ(ы) на вопрос:
Гостьчётных больше.........
Гостьprogram primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
end.
Не нашли ответ?
Похожие вопросы