Изменить программу, чтобы работала в Паскале: Const
Sz=100;
Var
i: Integer;
a:array[1..Sz]of integer;
N:Integer ;
Begin
N:=20;
For i:=1 to N do
a[i]:=random (100);
WriteLn('Эл. массива');
For i:=1 to N do
Write (a[i], ' ');
WriteLn ;
For i:=1 to N div 2 do
Swap(a[i],a[N-i+1]);
WriteLn('После инвертирования:');
For i:=1 to N do
Write (a[i], ' ');
End. ​

saaafffina8902    1   22.12.2020 21:35    2