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

Question

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

Answer 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 <> 0 then
      sum := sum + 1;
  end;
  writeln(sum / N * 100, '%')
end.

---

Comments

Программа спрашивает только ввод данных, а дальше не решает

---

Нужно ввести N (тут N = 10) цифр и программа выведет ответ.

---

где-то ошибка?

---

Все работает, прикрепил изображение.

---

Всё правильно, спасибо большое