Дан массив, состоящий из 10 целых чисел от 1 до 1000. Установите соответствие между условием задачи и фрагментом программы. Поиск минимального трёхзначного элемента. Вычисление среднего арифметического всех элементов массива, которые не оканчиваются цифрой 2. Поиск количества элементов, равных максимальному. Вычисление суммы нечётных элементов и поиск количества чётных элементов. begin k := 1; m := 0; 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; writeln(m, ' ', k); s := 0; k := 0; for i := 1 to 10 do begin if (A[i] mod 2) <> 0 then s := s + A[i] else k := k + 1; end; writeln(s, ' ', k); m := 1001; for i := 1 to 10 do begin if (A[i] >= 100) and (A[i] < m) then m := A[i]; end; writeln(m); s := 0; k := 0; for i := 1 to 10 do begin if (A[i] mod 10) <> 2 then begin s := s + A[i]; k := k + 1; end; end; s := s / k; writeln(s);
Задание

Дан массив, состоящий из 10 целых чисел от 1 до 1000.
Установите соответствие между условием задачи и фрагментом программы.

  • Объекты 1
    • Поиск минимального трёхзначного элемента.
    • Вычисление среднего арифметического всех элементов массива, которые не оканчиваются цифрой 2.
    • Поиск количества элементов, равных максимальному.
    • Вычисление суммы нечётных элементов и поиск количества чётных элементов.
  • Объекты 2
    • begin
      k := 1;
      m := 0;
      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;
      writeln\(m, ' ', k\);
    • s := 0;
      k := 0;
      for i := 1 to 10 do begin
      if \(A⟨0⟩ mod 2\) <> 0 then
      s := s + A
      \[i\]

      else
      k := k + 1;
      end;
      writeln\(s, ' ', k\);
    • m := 1001;
      for i := 1 to 10 do
      begin
      if \(A⟨0⟩ \\gt = 100\) and \(A⟨0⟩ \\lt m\) then
      m := A
      \[i\]
      ;
      end;
      writeln\(m\);
    • s := 0;
      k := 0;
      for i := 1 to 10 do begin
      if \(A⟨0⟩ mod 10\) <> 2 then
      begin
      s := s + A
      \[i\]
      ;
      k := k + 1;
      end;
      end;
      s := s / k;
      writeln\(s\);