В таблице хранятся данные о количестве проданных единиц товаров \(Dat⟨0⟩ — проданных товаров первого типа, Dat⟨1⟩ — второго и т\.д\.\). Опреде­лите, что будет напечатано в результате выполнения программ:

• Объекты 1
  • Program mas5;
    Var k, m: integer;
    Dat: array
    \[1\.\.11\]
    of integer;
    Begin
    Dat
    \[1\]
    := 20; Dat
    \[2\]
    := 25;
    Dat
    \[3\]
    := 19; Dat
    \[4\]
    := 25;
    Dat
    \[5\]
    := 26; Dat
    \[6\]
    := 22;
    Dat
    \[7\]
    := 24; Dat
    \[8\]
    := 28;
    Dat
    \[9\]
    := 26; Dat
    \[10\]
    := 21;
    Dat
    \[11\]
    := 27;
    m := 0;
    for k := 3 to 11 do
    if Dat
    \[k\]
    >= 22 then
    begin
    m := m+1;
    end;
    writeln\(m\);
    End.
  • Program mas6;
    Var k, m: integer;
    Dat: array
    \[1\.\.10\]
    of integer;
    Begin
    Dat
    \[1\]
    := 2; Dat
    \[2\]
    := 5;
    Dat
    \[3\]
    := 8; Dat
    \[4\]
    := 5;
    Dat
    \[5\]
    := 4; Dat
    \[6\]
    := 2;
    Dat
    \[7\]
    := 0; Dat
    \[8\]
    := 6;
    Dat
    \[9\]
    := 4; Dat
    \[10\]
    :=19;
    m := 0;
    for k := 5 to 9 do
    if Dat
    \[k\]
    > m then
    begin
    m := Dat
    \[k\]
    
    end;
    writeln\(m\);
    End.
  • Program mas7;
    var k, m, day: integer;
    Dat: array
    \[1\.\.10\]
    of integer;
    begin
    Dat
    \[1\]
    := 7; Dat
    \[2\]
    := 2;
    Dat
    \[3\]
    := 3; Dat
    \[4\]
    := 3;
    Dat
    \[5\]
    := 4; Dat
    \[6\]
    := 4;
    Dat
    \[7\]
    := 5; Dat
    \[8\]
    := 5;
    Dat
    \[9\]
    := 7; Dat
    \[10\]
    := 6;
    day:= 1; m:= Dat
    \[1\]
    ;
    for k:= 2 to 10 do begin
    if Dat
    \[k\]
    >= m then begin
    m := Dat
    \[k\]
    ;
    day:= k
    end
    end;
    write\(day\);
    end.
  • Program mas8;
    var k, m, day: integer;
    Dat: array
    \[1\.\.10\]
    of integer;
    begin
    Dat
    \[1\]
    := 7; Dat
    \[2\]
    := 1;
    Dat
    \[3\]
    := 3; Dat
    \[4\]
    := 3;
    Dat
    \[5\]
    := 2; Dat
    \[6\]
    := 2;
    Dat
    \[7\]
    := 5; Dat
    \[8\]
    := 5;
    Dat
    \[9\]
    := 7; Dat
    \[10\]
    := 1;
    day:= 1; m:= Dat
    \[1\]
    ;
    for k:= 2 to 10 do begin
    if Dat
    \[k\]
    < m then begin
    m := Dat
    \[k\]
    ;
    day:= k
    end
    end;
    write\(day\);
    end.
• Объекты 2
  • 7
  • 6
  • 9
  • 2