Выберите все фрагменты программ, в которых осуществляется поиск максимального элемента массива, состоящего из десяти целых чисел от -1000 до 1000.
Обратите внимание! Это может быть поиск максимального элемента с дополнительным условием.

• k := 1;
  m := 1001;
  for i := 1 to 10 do
  begin
  if A
  \[i\]
  < m then
  m := A
  \[i\]
  ;
  end;
  for i := 1 to 10 do
  begin
  if \(A⟨0⟩ = m\) then
  k := k + 1;
  end;
  write\(m, k\);
• m := 0;
  for i := 1 to 10 do begin
  if \(A⟨0⟩ mod 10\) = 5 then
  begin
  if A
  \[i\]
  < m then
  m := A
  \[i\]
  ;
  end;
  end;
  writeln\(m\);
• m := 1001;
  for i := 1 to 10 do begin
  if \(A⟨0⟩ mod 10\) = 5 then
  begin
  if A
  \[i\]
  > m then
  m := A
  \[i\]
  ;
  end;
  end;
  writeln\(m\);
• m := 0;
  for i := 1 to 10 do begin
  if \(A⟨0⟩ mod 10\) > 5 then
  m := A
  \[i\]
  ;
  end;
  writeln\(m\);
• m := 1001;
  for i := 1 to 10 do
  begin
  if A
  \[i\]
  > 0 then
  begin
  if m < A
  \[i\]
  then
  m := A
  \[i\]
  ;
  end;
  end;
  writeln\(m\);