Задание

Определите, какое число будет напечатано в результате работы следующей программы.

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.

6

11

3

10