Посчитайте сколько выйдет средний у Шукенова т

Question

Информатика: Посчитайте сколько выйдет средний у Шукенова т

evgenijstepano · Accepted Answer

Поскольку в 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.

Нужна в паскале имеются два одномерных массива а, в длиной n, где n- нечетное число. поменять в кажд

Нужна в паскале имеются два одномерных массива а, в длиной n, где n- нечетное число. поменять в кажд

MOGZ ответил