Цитата:
Сообщение от stud993
выдает ошибку 18 строки, переделывала на несколько раз. не могу понять что не правильно, помогите пожалуйста!
|
Пожалуйста.
Ошибка в том, что Вы определяете формат массива b, как Integer, т.е. целочисленный. Между тем среднее арифметическое по природе своей число вещественное (real), и к тому же для целых чисел операция деления дробью не определена, только div. Поэтому вместо
var a,b:array[1..100] of integer;
следует задать
var
a:array[1..100] of integer;
b:array[1..100] of real;
и, кстати, вывод результата придется сделать форматным, например, так:
for i:=1 to n do write(b[i]:4:1);