<span><em>Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.</em></span>
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
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.
Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.