Дан массив из 5 элементов, найти среднее арифметическое всех элементов массива. Выполнять на паскале. Нужно написать программу самым легким способом.
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.
Он выводит не во всех случаях и даже если выводит, то только среднее арифметическое четырёх чисел
Приведи пример того что ты вводишь и что он выводится в ответ ?
18 20 19 21 Среднее арифметическое: 12.6
так вводить надо 5 чисел!
а у тебя 4
Так не выводит пять
Только четыре выводит
я в шоке... вводишь число, нажимаешь enter и так повторяешь пока еще 4 не введешь
Скриншот работы добавил в ответ.
Всё, разобрался. Спасибо, вводил числа через пробел
