Написать программу с массивом: определить сколько процентов от всего количества частей

Написать программу с массивом: найти сколько процентов от всего количества частей последовательности целых чисел сочиняют нечетные элементы. Паскаль ABC.

Задать свой вопрос
1 ответ
Const
  N = 10;

var
  a: array[1..N] of integer;
  i, sum: integer;

begin
  for i := 1 to N do
  begin
    readln(a[i]);
    if a[i] mod 2 lt;gt; 0 then
      sum := sum + 1;
  end;
  writeln(sum / N * 100, '%')
end.
Галина Агол
Программка спрашивает только ввод данных, а далее не решает
Vova Ivaneko
Необходимо ввести N (здесь N = 10) цифр и программка выведет ответ.
Vladimir
где-то ошибка?
Вячеслав Ищеулов
Все работает, прикрепил изображение.
Саша Недоцуков
Всё правильно, спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт