Задание
SR : real;
Begin
Dat
Dat
Dat
m := 0; S := 0;
for k := 1 to 10 do
if Dat
begin
S := S + Dat
m := m + 1;
end;
SR := S / m;
writeln\(SR\);
End.
Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array
\[1\.\.10\]
of integer;SR : real;
Begin
Dat
\[1\]
:= 2; Dat\[2\]
:= 5; Dat\[3\]
:= 15; Dat\[4\]
:= 5;Dat
\[5\]
:= 4; Dat\[6\]
:= 2; Dat\[7\]
:= 0; Dat\[8\]
:= 2;Dat
\[9\]
:= 4; Dat\[10\]
:= 5;m := 0; S := 0;
for k := 1 to 10 do
if Dat
\[k\]
> 4 thenbegin
S := S + Dat
\[k\]
m := m + 1;
end;
SR := S / m;
writeln\(SR\);
End.