Определите, какое число будет напечатано в результате работы следующей программы.
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