Найти среднее значение элементов массива. Начало знаю:

program s;

var m: array [1 ... 100] of integer;

s, i: integer; sr: real;

begin

randomize

for i: = 1 to 100 do m[i]: = random (100) ;

s:=0

что дальше писать?

Question

Информатика

Стефана

27 сентября, 04:53

Найти среднее значение элементов массива. Начало знаю:

program s;

var m: array [1 ... 100] of integer;

s, i: integer; sr: real;

begin

randomize

for i: = 1 to 100 do m[i]: = random (100) ;

s:=0

что дальше писать?

+5

Ответы (1)

Знаете ответ на вопрос?

Марьяныч · Answer 1

randomize; / / В данной строке у Вас нету "; "

for i: = 1 to 100 do begin

m[i]:=random (100) ;

sr:=sr+m[i];

end;

writeln ('Среднее арифметическое ', sr/100) ;

end.

Найти среднее значение элементов массива. Начало знаю:program s;var m: array [1 ... 100] of integer;s, i: integer; sr: real;beginrandomizefor i: = 1 to 100 do m[i]: = random (100) ;s:=0что дальше писать?

Найти среднее значение элементов массива. Начало знаю:

program s;

var m: array [1 ... 100] of integer;

s, i: integer; sr: real;

begin

randomize

for i: = 1 to 100 do m[i]: = random (100) ;

s:=0

что дальше писать?