Исправить ошибки в паскале program exp2; const - вопрос №8557134253 от AbilfaizK 01.06.2023 16:39

Question

Информатика: Исправить ошибки в паскале 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

AbilfaizK · Answer

Program exp2;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)    endend....