Задание

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