Выберите все фрагменты программ, в которых осуществляется поиск минимального элемента массива, состоящего из целых десяти целых чисел от -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[i] = m) then k := k + 1; end; write(m, k); m := 0; for i := 1 to 10 do begin if (A[i] 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[i] 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[i] 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);
Задание

Выберите все фрагменты программ, в которых осуществляется поиск минимального элемента массива, состоящего из целых десяти целых чисел от -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\);