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