Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. пример: массив: 1 2 3 4 5 среднее арифметическое 3.000 язык програмирования паскаль

Var m: array[1..10000] of integer; i,s,n: longint; a: real; begin randomize; writeln('введите число элементов'); read(n); writeln('массив: '); for i: =1 to n  do   begin   m[i]: =random(101); write(m[i],' ');   s: =s+m[i];   end; a: =s/n; writeln('среднее арифметическое: ',a: 2: 3); end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

лексикогрфический порядок: сравниваются первые буквы, если они однаковы, то вторые, третьи и т.д.

баскетбол

гимнастика

гитара

канал

посетить

почерк

расчёт

расчётливый

спортсмен

справа

справедливый

чехол

шоссе

шофёр