Дан массив из 5 элементов, найти среднее арифметическое всех элементов массива. Выполнять...

Question

Дан массив из 5 элементов, найти среднее арифметическое всех элементов массива. Выполнять на паскале. Нужно написать программу самым легким способом.

Answer 1

Var
  m : array[1..5] of Integer;
  i,s : Integer;
Begin
  s:=0;
  Writeln('Введите 5 элементов:');
  For i:=1 to 5 do
  Begin
   Readln(m[i]);
   s:=s+m[i];
  end;
  Writeln('Среднее арифметическое: ',s/5);
end.

---

Comments

Он выводит не во всех случаях и даже если выводит, то только среднее арифметическое четырёх чисел

---

Приведи пример того что ты вводишь и что он выводится в ответ ?

---

18 20 19 21 
Среднее арифметическое: 12.6 

---

так вводить надо 5 чисел!

---

а у тебя 4

---

Так не выводит пять

---

Только четыре выводит

---

я в шоке... вводишь число, нажимаешь enter и так повторяешь пока еще 4 не введешь

---

Скриншот работы добавил в ответ.

---

Всё, разобрался. Спасибо, вводил числа через пробел