Исправить ошибки в паскале 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.
uses Crt;
const
m=5; n=3;
type
matr=array[1..m,1..n] of integer;
var
mas:matr;
k,i,j:integer;
p:real;
begin
ClrScr;
Write('k='); Readln(k);
Randomize;
for i:=1 to m do begin
for j:=1 to n do begin
mas[i,j]:=Random(101);
Write(mas[i,j],' ')
end;
Writeln
end;
for j:=1 to n do begin
p:=1;
for i:=1 to m do p:=p*mas[i,j];
p:=Exp((1/m)*Ln(p));
if p>k then writeln (' j= ',j:5)
end
end.