Question

40! баллов Найти среднее арифметическое массива var o:array[1...5] of integer; i,s,n:integer; s:real; begin s:=0; n:=5; for i:=1 to 5 do begin readln(o[i]); s:=s+o[i]; sr:=s/n; end. Подправить чтобы было правильно.

Answer 1

var o:array[1..5] of integer;

i,s,n:integer;

sr : real;

begin

s:=0;

n:=5;

for i:=1 to 5 do

begin

readln(o[i]);

s:=s+o[i];

end;

sr:=s/n;

end.

Answer 2

Ваш код содержит несколько ошибок. Вот исправленная версия:

pascalCopy code
var
  o: array[1...5] of integer;
  i, n: integer;
  s, sr: real;

begin
  s := 0;
  n := 5;
  
  for i := 1 to n do
  begin
    readln(o[i]);
    s := s + o[i];
  end;

  sr := s / n;
  writeln('Среднее арифметическое: ', sr);
end.

Изменения и исправления в коде:

1. Удалена лишняя переменная s, так как она была объявлена дважды.
2. В цикле for изменен диапазон от 1 до n, чтобы учесть количество элементов массива o.
3. Результат вычисления среднего арифметического сохраняется в переменную sr.
4. Добавлен вывод значения среднего арифметического на экран с помощью writeln.

Теперь код должен правильно находить среднее арифметическое элементов массива o.