procedure InitMas(p: integer); var i: integer; begin Writeln('Элементы массива'); for i := 1 to p do begin x[i] := Random(101) - 50; Write(x[i]:4); end; Writeln end;
function avg(m: integer): real; var i, s: integer; begin s := 0; for i := 1 to m do s := s + x[i]; avg := s / m end;
begin Randomize; InitMas(10); Writeln('Среднее арифметическое равно ', avg(10)) end.
Тестовое решение: Элементы массива 44 -40 -1 9 48 -12 48 -39 -13 32 Среднее арифметическое равно 7.6
В нашей школе есть много уроков, один из них является информатикой. На уроке информатике мы печатаем текст, проходим различные интересные темы. Создавая файл World мы печатаем что нам говорит учитель. Урок информатика - познавательный урок, мы узнаем много интересного. Мне нравится урок информатики из-за того, что каждый урок проходит весело и интересно, так же, благодаря уроку информатике я научилась быстро писать на клавиатуре. Каждый урок мы делаем какие либо задания, это очень интересный и познавательный урок - информатика.
Perm University или Пермский Университет
Объяснение: