Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
uses Crt;
procedure MySwap(a:array of integer); begin var n:=a.Length; for var i:=0 to n div 2 do Swap(a[i],a[n-i-1]) end;
procedure MyPrint(txt:string; a:array of integer); begin Print(txt); a.Println end;
begin var n:=ReadInteger('n='); var a:=new integer[n]; var b:=new integer[n]; Randomize; for var i:=0 to n-1 do begin a[i]:=Random(10); b[i]:=Random(10); end; ClrScr; MyPrint('Исходный А :',a); MySwap(a); MyPrint('Результат А:',a); MyPrint('Исходный B :',b); MySwap(b); MyPrint('Результат B:',b) end.
средний будет 4,8 , а строчка G5
Объяснение:
5+5+5+5+4=24:5=4,8
Строчку найти легко.