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.
//PascalABC.NET 3.1 сборка 1219 procedure PrintMatrix(a: array[,] of integer); begin for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do begin writeln; for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do write(a[i, j], ' '); end; writeln; end;
begin var a := MatrixRandom(9, 9, 10, 99); PrintMatrix(a); var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2; var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2; writeln('A[', i, ', ', j, '] = ', a[i, j]); end.
вот
Объяснение:
Правильно 10046468164646153769%