Ввести с клавиатуры 10 целых чисел.Подсчитать количество нечётных (в паскаль турбо)

1

Ответы и объяснения

  • ali19
  • середнячок
2014-04-14T10:24:02+04:00
Program;
Uses vincrt;
Var i,n: integer
Begin
i:=0;
writeln('n=');
Raedln(n);
If (n mod 2 = 1) then i:=i+1;
End.