Выяснить, каких цифр больше: четных или нечетных?

Question

Информатика

Маркеллина

1 апреля, 16:18

Выяснить, каких цифр больше: четных или нечетных?

+1

Ответы (2)

Знаете ответ на вопрос?

Таися · Answer 1

Таися 1 апреля, 18:05

0

Чётных больше ...

Божена · Answer 2

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.