Информатика

Наса

25 февраля, 01:46

Определите, что будет напечатано в результате выполнения следующего алгоритма

var m, k, i: integer; mas:array[1 ... 7] of integer; begin mas[1]:=5; mas[2]:=5; mas[3]:=4; mas[4]:=6; mas[5]:=6; mas[6]:=6; mas[7]:=-8; m:=0; k:=1; for i:=1 to 6 do if mas[i] = mas[i+1] then k:=k+1

else begin

if k > m then m:=k;

k:=1

end;

write (m) ; end.