В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.

Алгоритмический язык

алг
нач
 целтаб Dat[1:12]
 цел k, m, month
 Dat[1]:= 2; Dat[2]:= 8
 Dat[3]:= 6; Dat[4]:= 3
 Dat[5]:= 8; Dat[6]:= 2
 Dat[7] := 3; Dat[8] := 7
 Dat[9]:= 4; Dat[10]:= 4
 Dat[11] := 8; Dat[12] := 7
 month := 1; m := Dat[1]
  нц для к от 2 до 6
   если Dat[к] > m то
    m := Dat[к]
    month := к
   все
  кц
вывод month
кон

Бейсик

DIM Dat(12) AS INTEGER
Dat(1)= 2: Dat(2)= 8
Dat(3)= 6: Dat(4)= 3
Dat(5)= 8: Dat(6)= 2
Dat(7)= 3: Dat(8)= 7
Dat(9)- 4: Dat(10)= 4
Dat(11)= 8: Dat(12)= 7
month = 1: m = Dat(1)
FOR k = 2 TO 6
  IF Dat(k) > m THEN
    m = Dat(k)
    month = k
  END IF
NEXT k
PRINT month
END

Паскаль

var k, m, month: integer;
Dat: array[1.,12]
 of integer;
begin
 Dat[1] := 2; Dat[2] := 8;
 Dat[3] := 6; Dat[4] := 3;
 Dat[5] : = 8; Dat[6] := 2;
 Dat[7] : = 3; Dat[8] := 7;
 Dat[9] := 4; Dat[10] := 4;
 Dat[11] := 8; Dat [12] := 7;
 month := 1; m := Dat[1];
 for k := 2 to 6 do begin
  if Dat[k] > m then
  begin
   m := Dat [k];
   month := k
  end
 end;
 write(month);
end.