Экономика

В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алг нач  целтаб Dat[1:10]  цел k, m, day  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]   нц для k от 2 до 10   если Dat[к] >= m то    m := Dat[к]; day := к   все  кц  вывод day кон Бейсик DIM Dat(10) AS INTEGER  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    IF Dat (k) >= m THEN     m = Dat (k)     day = k    END IF   NEXT k PRINT day END Паскаль 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. Как это решать?