зprogram PascalGuru;
uses crt;
 
var A,B:array [1..10] of real;
    i,n:integer;
 
function max(n:integer):real;
var i:integer;
    rezult:real;
begin
rezult:=A[1];
for i:=2 to n do
if A[i]>rezult then rezult:=A[i];
max:=rezult;
end;
{--------------------------------}
begin
n:=10;
 
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]:5:2,' ');
 
writeln;writeln;
writeln('MAX= ',max(n):0:2);
writeln('Preobrazovannyi massiv:');
for i:=1 to n do
if A[i]=max(n) then B[i]:=0 else B[i]:=A[i]/3;
 
write('B: '); for i:=1 to n do write(B[i]:5:2,' ');
 
readln;
end.