Исправить ошибки в паскале program exp2; const m=5; n=3; type matr = array [ 1..m, 1..n ] of integer ; var m: matr ; k, i, j : integer ; p: real ; повторно объявленный идентификатор begin clrscr ; неизвестный идентификатор writeln ( ' k=' ) ; readln (k) ; randomize ; for i: = 1 to m do begin for j: = 1 to n do begin m [ i , j ] : = random (101) ; end ; end ; for j: = 1 to n do begin p: = 1; for i: = 1 to m do begin p: = p * m [i,j] ; end ; p : = p ^ ( 1 / m ) ; нельзя делить if p > k then writeln ( ' j = '; j: 5) ; неверное выражение end ; end.

dyba00ozclh4    3   16.09.2019 07:20    1