Соберите программу. Введите количество случайных элементов массива от 0 до 100. Выведите их на экран. Найдите и выведите максимальный элемента массива, а так же его порядковый номер.

• var n,i,max,imax: integer;
  a:array
  \[1\.\.10000\]
  of integer;
• begin
  randomize;
  readln\(n\);
• for i:=1 to n do begin
  a
  \[i\]
  :=random\(100\);
  write\(a⟨1⟩, ' '\);
  end;
• for i:=1 to n do begin
  a
  \[i\]
  :=random\(100\);
  write\(a⟨1⟩, ' '\);
  end;
• max:=a
  \[1\]
  ;
• for i:=1 to n do
  begin
  if a
  \[i\]
  >=max then
  begin max:=a
  \[i\]
  ; imax:=i; end;
  end;
• writeln\('максимальный элемент ',max, 'номер', imax\);
  end.