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

Ответы 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= 20Cумма min+max = -99+71 = -2862 -72 39 -93 -99 -46 -77 71 -12 13 -89 18 -17 19 -35 -62 30 17 -74 37
    • Автор:

      sandoval
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years