Множества(Pascal)решите плиз.

[КуДрЯ]

Записать в текстовый файл 1000 случайных целых чисел в диапазоне [1..100]. Прочитать каждое пятое и найти их среднюю величину "M" и среднеквадратичное отклонение от нее - "D". Составить множество из чисел, лежащих в интервале [M-3D,M+3D] (используя только прочитанные числа). Вывести полученное множество в текстовый файл.

[XeN0N]

ваш код ?

[Jean-Esther]

Код где-то такой вроде бы.

function r:byte;
begin randomize; r:=random(101); end;

procedure G(filename:string);
var F:Text;
var a:array[1..200] of byte;
var x,i:byte;
var m,d:real;
begin
  Assign(F,filename);
  ReWrite(F);
  m:=0;
  for i:=1 to 200 do
    begin
      x:=r;
      write(F,r,' ',r,' ',r,' ',r,' ',x,' ');
      a[i]:=x;
      m:=m+x;
    end;
  m:=m/200;
  d:=0;
  for i:=1 to 200 do
    d:=sqr(a[i]-m);
  d:=d/200;
  Close(F);
  {<-- Вывод M, D -->}
  Assign(F,'*.*') {<-- по выбору}
  ReWrite(F);
  for i:=1 to 200 do
    if (a[i]>=M-3D) and (a[i]<=M+3D)
      then write(F,a[i],' ');
  Close(F);
end;

— красивый смайл.