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

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

алг
нач
 целтаб Dat[1:10]
 цел k, m
 Dat[1] := 16
 Dat[2] := 20
 Dat[3] := 20
 Dat[4] := 41
 Dat[5] := 14
 Dat[6] := 21
 Dat[7] := 28
 Dat[8] := 12
 Dat[9] := 15
 Dat[10] := 35
 m := 0
 нц для k от 1 до 10
  если Dat[k]>m то
   m := Dat[k]
  все
 кц
 вывод m
кон

Бейсик

DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 12
Dat(9) = 15: Dat(10) = 35
m = 0
 FOR k = 1 TO 10
 IF Dat(k)>m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m

Паскаль

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
 Dat[1] := 16; Dat[2] := 20;
 Dat[3] := 20; Dat[4] := 41;
 Dat[5] := 14; Dat[6] := 21;
 Dat[7] := 28; Dat[8] := 12;
 Dat[9] := 15; Dat[10] := 35;
 m := 0;
 for k := 1 to 10 do
  if Dat[k]>m then
   begin
    m := Dat[k]
   end;
 writeln(m);
End.