Массивы+типизированные файлы - выделить неповторяющиеся числа (консоль Delphi)

[Юлия777]

здравствйуте. помогите написать задачу в Delphi 7 в консольном приложении. очень срочно надо....
Массив считывается из типизированного файла (file of integer), имя которо-го запрашивается у пользователя.
Даны целые числа а1, а2, …, аn. Выяснить, есть ли среди них повторяю-щиеся числа, и найти среднее арифметическое без учета повторов. Например, для последовательности чисел 1, 3, 4, 3, 6, 3, 0 надо найти среднее арифметическое чисел 1, 3, 4, 6, 0



________________________________
Юля, для учебных задач у нас на форуме предназначен раздел "Помощь студентам".
Так как это ваша первая тема, то я перенёс тему в нужный раздел.
А на будущее учтите это.

Модератор

[Serge_Bliznykov]

задача может быть решена множеством разных способов.
Т.к. речь в задаче о Delphi, то можно использовать мощь средств, заложенных в данный ЯП. Например, динамические массивы.
Типизированный файл тем хорошо, что сразу после открытия известно, сколько компонентов в этом самом файле содержится.
Дописать проверку, которая перебирает элементы в массиве и возвращает, есть уже такое число в масиве или нет...

вот ПРИМЕРНОЕ решение:

var 
  i, One : integer;
  Mas : array of integer; { динамический массив }
  N : integer; { количество элементов в массиве }
  FN : string;
  f : file of Integer;
  isValueFound : boolean; {признак - результат поиска числа в массиве}
  AverValue : extended;
begin
  WriteLn('Input file name: ');
  Readln(FN);
  if Not FileExists(FN) then
    WriteLn('Error! File '+FN+' not exists!')
  else begin
    AssignFile(f, FN);
    Reset(f);
    SetLength(Mas, FileSize(f) );
    N := 0;
    while not eof( f ) do begin
       Read(f, One);
       isValueFound  := false;
       for i:=0 to N-1 do 
           if Mas[i]=One then begin
               isValueFound  := true; {признак - нашли}
               break; {прерываем цикл. перебирать и проверять даль можно - но бессмыслено - совпадение уже найдено!}
           end;
       {если элемента нет в массиве - добавляем его в массив}
       if Not isValueFound then begin
          Mas[N] := One;
          Inc(N);
       end;
    end;
    CloseFile(f); {закрываем файл, все элементы уже считаны} 

    {вычисляем среднее} 
    if N=0 then WriteLn('Error! No any numbers in file!')
    else begin
      AverValue := 0;
      for i:=0 to N-1 do AverValue := AverValue + Mas[i];
      AverValue := AverValue/ (N-1);
      WriteLn(' average = ', AverValue:1:3); 
    end;
  end;

  ReadLn;
end.