Определите, что будет напечатано в результате выполнения следующего алгоритма 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.

морж14    2   21.05.2019 06:20    0