Определите, что будет напечатано в результате выполнения программы:
Program mash;
Vark, 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 then
begin
m := Dat[k]
end;
writeln(m);
End.
​

yuhdbfbgg    2   15.05.2020 11:11    4