В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках. Алгоритмический язык Бейсик Паскаль алг нач целтаб Dat[1:10] цел k, m, day Dat[1] := 2 Dat[2] := 2 Dat[3] := 3 Dat[4] := 3 Dat[5] := 4 Dat[6] := 4 Dat[7] := 5 Dat[8] := 5 Dat[9] := 6 Dat[10] := 6 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[k] >= m то m:= Dat[k] day := k все КЦ вывод day КОН DIM Dat(10) AS INTEGER Dat[1] = 2 Dat[2] = 2 Dat[3] = 3 Dat[4] = 3 Dat[5] = 4 Dat[6] = 4 Dat[7] = 5 Dat[8] = 5 Dat[9] = 6 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] := 2; Dat[2] := 2; Dat[3] := 3; Dat[4] := 3; Dat[5] := 4; Dat[6] := 4; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; Dat[10] := 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] >= m then begin m:= Dat[k]; day := k; end; write(day); End.

а можно подробнее написать? объяснить как вы решили

Читайте более подробное объяснение.

Поподробнее ...Ну это конечно нормально, смешать три языка программирования в одну кучу ... Ну то, что на Pascal  выцарапал. Даже не знаю, стоило ли тратить время на это.Ну а ответ: day = 10Vark, m, day: integer;Dat: array[1..10] of integer;Begin Dat[1]:= 2;Dat[2]:= 2; Dat[3]:= 3;Dat[4]:= 3; Dat[5]:= 4;Dat[6]:= 4; Dat[7]:= 5;Dat[8]:= 5; Dat[9]:= 6;Dat[10]:= 6; day:=1; m := Dat[1]; for k := 2 to 10 do  if Dat[k] >= m then begin    m:= Dat[k];    day := k;  end; write(day);end.