Задание
begin
B
B
B
B
B
B
B
B
B
B
t := 1;
for k := 1 to 10 do
if B
writeln\(t\);
end.
Определите, какое число будет напечатано в результате работы следующей программы.
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