Задание
Begin
Tok
Tok
Tok
Tok
Tok
m := 0;
For k := 1 to 10 Do
If Tok
m := m + 2;
End;
Writeln\(m\);
End.
Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Tok: array
\[1\.\.10\]
of integer;Begin
Tok
\[1\]
:= 10; Tok\[2\]
:= 14;Tok
\[3\]
:= 15; Tok\[4\]
:= 4;Tok
\[5\]
:= 12; Tok\[6\]
:= 6;Tok
\[7\]
:= 3; Tok\[8\]
:= 5;Tok
\[9\]
:= 5; Tok\[10\]
:= 10;m := 0;
For k := 1 to 10 Do
If Tok
\[k\]
> 6 Then Beginm := m + 2;
End;
Writeln\(m\);
End.