Question

Заполнить текстовый файл числами полученными с помощью датчика случайных чисел найти сумму минимального и максимального элементов этого файла (Паскаль, пожалуйста с полным текстом программы)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  WriteAllText('MyFile.txt',SeqRandom(n,-99,99).JoinIntoString);
  var (mn,mx):=(MaxInt,-MaxInt);
  foreach var line in ReadLines('MyFile.txt') do begin
    var a:=line.ToIntegers;
    (mn,mx):=(Min(a.Min,mn),Max(a.Max,mx))
    end;
  Writeln('Cумма min+max = ',mn,'+',mx,' = ',mn+mx);
  ReadAllText('MyFile.txt').Println // контрольный вывод файла
end.

Пример
n= 20
Cумма min+max = -99+71 = -28
62 -72 39 -93 -99 -46 -77 71 -12 13 -89 18 -17 19 -35 -62 30 17 -74 37

Answer 2

Для создания текстового файла с числами, полученными с помощью датчика случайных чисел, и нахождения суммы минимального и максимального элементов, нам понадобится следующий программный код на языке Pascal (Delphi):

pascalCopy code
program RandomNumbersFile;

const
  FileName = 'random_numbers.txt';
  NumCount = 100; // Количество случайных чисел, которые нужно записать в файл

var
  RandomFile: TextFile;
  i, num, minValue, maxValue, sum: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Создание и открытие файла для записи
  AssignFile(RandomFile, FileName);
  Rewrite(RandomFile);

  // Заполнение файла случайными числами
  for i := 1 to NumCount do
  begin
    num := Random(1000); // Генерация случайного числа от 0 до 999
    Write(RandomFile, num, ' '); // Запись числа в файл с пробелом для разделения
  end;

  // Закрытие файла
  CloseFile(RandomFile);

  // Открытие файла для чтения
  Reset(RandomFile);

  // Инициализация минимального и максимального значения
  Read(RandomFile, minValue);
  maxValue := minValue;

  // Поиск минимального и максимального значения, а также суммы всех чисел
  sum := minValue;
  while not Eof(RandomFile) do
  begin
    Read(RandomFile, num);
    sum := sum + num;
    if num < minValue then
      minValue := num;
    if num > maxValue then
      maxValue := num;
  end;

  // Закрытие файла
  CloseFile(RandomFile);

  // Вывод результата
  Writeln('Сумма минимального и максимального элементов файла: ', minValue + maxValue);
end.

Программа создает файл с именем "random_numbers.txt" и заполняет его 100 случайными числами от 0 до 999. Затем она открывает файл для чтения, находит минимальное и максимальное значение, а также сумму этих двух чисел, выводит результат на экран.