Локальный максимум в файле.

[Wild_klas]

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

[Sibedir]

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

КЭП тобой доволен

Учусь учиться

1. Читаем из файла числа и записываем их в массив;
2. Если последний элемент больше предпоследнего, то LocMax := (Length - 1), иначе п. 3, 4;
3. LocMax := 0;
4. Перебираем массив с предпоследнего (Length - 2) до второго (1). Если это число - локальный максисум ((Arr[i] > Arr[i-1]) and (Arr[i] > Arr[i+1])), то LocMax := i и выходим из цикла;
5. Result := Arr[LocMax].

Ну а если файл действительно большой, тогда читать его нужно сзаду на перед и сразу преверять.

[Wild_klas]

Сообщение от Sibedir

КЭП тобой доволен


1. Читаем из файла числа и записываем их в массив;
2. Если последний элемент больше предпоследнего, то LocMax := (Length - 1), иначе п. 3, 4;
3. LocMax := 0;
4. Перебираем массив с предпоследнего (Length - 2) до второго (1). Если это число - локальный максисум ((Arr[i] > Arr[i-1]) and (Arr[i] > Arr[i+1])), то LocMax := i и выходим из цикла;
5. Result := Arr[LocMax].

Ну а если файл действительно большой, тогда читать его нужно сзаду на перед и сразу преверять.

Спасибо, кэп
То как именно найти лок. макс в массиве я понял, я не могу записать числа из файла в массив.

Пробовал делать через Val.

Var f:text;
    l,i,n,p,code:integer;
    S:string;
    a:array [1..255] of integer;
Begin
   assign(f,'file.txt'); reset(f);
read(f,s);
i:=0;
repeat
p:=pos(' ',s);
inc(i);
val(copy(s,1,p-1),a[i],code);
delete(s,1,p);
until p=0;
closefile(f);
n:=length(s);

   For i:=0 to n-1 do
     Write(a[i]);

  Readln;
End.

[Sibedir]

Э-э-э, как бэ

var
  f:text;
  i, n:integer;
  a: array [1..255] of integer;
Begin
  Assign (f,'file.txt');
  reset (f);
  n := 0;
  while not EOF(f) do begin
    read(f,i);
    inc(n);
    a[n] := i;
  end;

  ...

End.

EOF - end of file