program ZADACHA2;
var
a : array [1..15] of integer;
I : byte;
x,z,y,w : integer;
begin
  Randomize;
x:=0;
z:=50;
For i := 1 to 15 do
  Begin
    a[i]:=-20+random(50-(-20+1));
    if a[i] > x then
      begin
        x := a[i];
        y := i;
      end;
    if a[i] < z then
      begin
        z := a[i];
        w := i;
      end;
  end;
  writeln(a);
  writeln('Index maksimalnogo elementa v massive: ',y);
  writeln('Index minimalnogo elementa v massive: ',w);
end.