program maximalnij_iliment_massiva;
Var
        idmax,i:integer;
        Amax:real;
	A:array [1..15] of real;
        begin
        randomize;
       	 writeln;
       	 writeln;
         for i:=1 to 15 do begin
	 A[i]:= random (1000);
         write (A[i]:4:0,' ');
       	 end;
         readln;
         Amax:=A[1];
         idmax:=1;
         for i:=2 to 15 do begin
         	if A[i]>Amax
		 then begin
         		Amax:=A[i];
                        idmax:=i;
                        end
                 end;
         write ('samoe bolwoe pervoe 4islo = ',Amax:4:0,' ego adres ',idmax);
         readln
end.
                         made by $N@Kˆ