Определите, какое число будет напечатано в результате работы

Question

Определите, какое число будет напечатано в результате работы следующей программы. 
var k, t : integer; 
B: array[1..10] of integer; 
begin  
B[1] := 20;   
B[2] := 16;   
B[3] := 20;  
B[4] := 46;  
B[5] := 15;   
B[6] := 21;    
B[7] := 28;   
B[8] := 17;    
B[9] := 16;  
B[10] := 45;    
t := 1;    
for k := 1 to 10 do      
    if  B[k] >=B[t] then t :=t+1;         
writeln(t);
end.
1) 6
2) 11
3) 3
4) 10

sofiya.glazova · Answer

11