[Konrad]

Сообщение от radiokarazinec@mail.ru

прога заработала, но не выбирает, посморите я правильно там сохранение написал?

Заработала без ошибок?

Пишет в файл Нан?)

Значит не правильно сохраняешь...

[radiokarazinec@mail.ru]

то что надо не пишет, пишет все 35 , вы смотрели код? правильно ли там все, я там от себя ничего не добавлял

[radiokarazinec@mail.ru]

а как правильно?

[Konrad]

Сообщение от radiokarazinec@mail.ru

а как правильно?

В том коде удалено схранение точек. - следствие не выводятся35 точек.
Далее не правильно задан размер массива. - следствие массив выводится не правильно.

Пересмотри еще раз.

[radiokarazinec@mail.ru]

ладно, скажите пожалуйста как правильно записать сохранение масива с отобраными числами?

[Konrad]

Сообщение от radiokarazinec@mail.ru

ладно, скажите пожалуйста как правильно записать сохранение масива с отобраными числами?

Не это уж слишком.

Ты не знаешь как сохранить массив в файл?

Я тебе уже даже код показал, который это делает.
Но ты даже не можешь его переделать под другой массив?

[radiokarazinec@mail.ru]

я то знаю, но почему то оно не работает

[Konrad]

Сообщение от radiokarazinec@mail.ru

я то знаю, но почему то оно не работает

Cомневаюсь.
Ты написал:

PHP код:

for i := 0 to In_N - 1 do
  Writeln(DataFile,max[i]); 


А теперь главный вопрос - сколько элементов в массиве maxi?

Ну и?)

[Konrad]

Такой сложный вопрос?

Тут уже логикой можно:

Была задача, найти 4-ре значения.

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

Так сколько значений мы должны сохранить?


У Пети было 4 ре яблока.
Он отдал их Свете.
Света отдала яблоки Лене.

Так сколько яблок получила Лена?

[radiokarazinec@mail.ru]

четыре? я так думаю

[Konrad]

PHP код:

for i := 0 to In_N - 1 do 


От скольки до скольки цикл?

[radiokarazinec@mail.ru]

Код:

for i := 1 to 4 do
  Writeln(DataFile,max[i]);

так?

[radiokarazinec@mail.ru]

в in.txt сохраняет правильно

[Konrad]

Сообщение от radiokarazinec@mail.ru

в in.txt сохраняет правильно

Тогда все? Вопрос решен? Тему закрываем?

[s0Creator]

Прошу прощения, но хочу немного поправить.
В данном случае в файл выводятся наибольшие по порядку убывания.
Для вывода по порядку расположения предлагаю так

Код:

  MemoOut.Lines.Add('-----------------------');
  for j := 0 to In_N - 1 do
    for i := 1 to 4 do
    if maxn[i] = j then
    begin
      Writeln(DataFile, max[i]);
      MemoOut.Lines.Add(Format('%8.3f - %d', [max[i], maxn[i]]));
    end;

Если я правильно разобрался.