Program e; var mas 2 : array [1..10, 1..10] of integer; i, j, k : integer begin for i : = 1 to 10 do -⇒ здесь for j : = 1 to 10 do -⇒ здесь read (mas2[i, j]; (mas2[1+j]< 0); - отсюда мог перепутать порядок for i : = 1 to 10 do -⇒ и здесь for j : = 1 to 10 do -⇒ и здесь then k : = k+1 writeln(k) end. вопрос : почему цикл for используется два раза ?
