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