Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год. Найти год с наименьшим номером. Паскаль

Предыдущий
вопрос Следующий
вопрос

Пример решения на Pascal:

program MinYear;
var
inputFile: text;
currentYear, minYear: integer;
begin
// Открываем файл для чтения
Assign(inputFile, 'dates.txt');
Reset(inputFile);
minYear := MaxInt; // Устанавливаем начальное значение для минимального года
// Читаем даты из файла и ищем год с наименьшим номером
while not Eof(inputFile) do
begin
readln(inputFile, currentYear);
if currentYear < minYear then
minYear := currentYear;
end;
// Закрываем файл
Close(inputFile);
// Выводим результат
writeln('Год с наименьшим номером: ', minYear);
end.

В этом примере программа считывает даты из файла dates.txt и находит год с наименьшим номером. Результат выводится на экран.