Информатика

Лавруня

23 января, 17:42

Объясните, почему он выводит 21, а не 19?

Var k, m: integer;

Dat: array[1 ... 11] of integer;

Begin

Dat[1]: = 20;

Dat[2]: = 27;

Dat[3]: = 19;

Dat[4]: = 28;

Dat[5]: = 26;

Dat[6]: = 22;

Dat[7]: = 24;

Dat[8]: = 28;

Dat[9]: = 26;

Dat[10]: = 21;

Dat[11]: = 27;

m : = 0

for k : = 1 to11 do

if Dat[k] < 25 then begin

m : = Dat[k];

end;

writeln (m) ;

End.