program qq;
var a:array[1..40] of integer;
    i, max, max_numb:integer;
    
begin
for i:=1 to 40 do 
 a[i]:=random(200)-100;
for i:= 1 to 40 do
 write(a[i], ' ');
writeln();
max:=0;
max_numb:=0;
for i:= 1 to 40 do
 if a[i]>=max then
  begin
   max:=a[i];
   max_numb:=i;
  end;
writeln('Максимальный элемент массива: ', max);
writeln('Его порядковый номер: ', max_numb)
end.