файлы

[Zaraaa]

на делфи помогите сделать пжл, очень трудная тема "Файлы"
1) Дан файл f, компоненты которого являются целыми числами. Найти наибольший и наименьший из компонентов файла.
2) Сведения о студенте состоят из его фамилии, специальности и шифра группы(год поступления, номер группы). Дан файл f, содержащий сведения об учениках. Выяснить, имеются ли на факультете однофамильцы.

[Vanta11a]

Наработки где?

[Nuklon]

1) Дан файл f, компоненты которого являются целыми числами. Найти наибольший и наименьший из компонентов файла.

#include <fstream>
#include <iostream>



int main(void){
      int imin, imax, n;

      std::ifstream fp("file.txt");
      if(! fp.is_open())
             return 1;
      fp >> n;
      imin = imax = n;

      while(fp >> n) {
              if(n > imax)
                     imax = n;
              if(n < imin)
                     imin = n;
      }
      fp.close();

      std::cout << "min: " << imin << std::endl;
      std::cout << "max: " << imax << std::endl;
      return 0;
}