program PascalGuru;
uses crt;
 
var A,B:array [1..50] of integer;
    i,n:integer;
 
function max(n:integer):integer;
var i,rezult:integer;
begin
rezult:=A[1];
for i:=2 to n do
if A[i]>rezult then rezult:=A[i];
max:=rezult;
end;
{--------------------------------}
begin
 
writeln('Vvod massiv:');
write('Razmer massiva "n": '); readln(n);
for i:=1 to n do A[i]:=0+random(26);
 
clrscr;
writeln('Massiv:');
write('A: '); for i:=1 to n do write(A[i],' ');
 
writeln;writeln;
writeln('Preobrazovannyi massiv:');
for i:=1 to n do B[i]:=A[i]-max(n);
write('B: '); for i:=1 to n do write(B[i],' ');
 
readln;
end.