Расставьте строки кода в нужном порядке, чтобы получилась программа, выводящая на экран номера максимальных элементов в массиве var i, N, max_el, max_num: integer; mas: array[1..10000] of integer; begin read(N); for i:=1 to N do read(mas[i]); max_el:=mas[1]; max_num:=1; for i:=1 to N do if mas[i]>max_el then max_el:=mas[i]; for i:=1 to N do if mas[i]=max then write(i, ' '); end.
Задание

Расставьте строки кода в нужном порядке, чтобы получилась программа, выводящая на экран номера максимальных элементов в массиве

  • var i, N, max_el, max_num: integer;
  • mas: array
    \[1\.\.10000\]
    of integer;
  • begin
  • read\(N\);
  • for i:=1 to N do read\(mas⟨1⟩\);
  • max_el:=mas
    \[1\]
    ; max_num:=1;
  • for i:=1 to N do if mas
    \[i\]
    >max_el then max_el:=mas
    \[i\]
    ;
  • for i:=1 to N do if mas
    \[i\]
    =max then write\(i, ' '\);
  • end.