исправить ошибки в паскале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 ; повторно объявленный идентификаторbeginclrscr ; неизвестный идентификаторwriteln ( ' k=' ) ; readln (k) ;randomize ;for i:= 1 to m do beginfor j:= 1 to n do beginm [ i , j ] := random (101) ;end ; end ;for j:= 1 to n do beginp:= 1;for i:= 1 to m do beginp:= p * m [i,j] ;end ;p := p ^ ( 1 / m ) ; нельзя делитьif p > k then writeln ( ' j = '; j: 5) ;неверное выражениеend ;end.

Question

Информатика

Севастиан

5 год назад

исправить ошибки в паскале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 ; повторно объявленный идентификаторbeginclrscr ; неизвестный идентификаторwriteln ( ' k=' ) ; readln (k) ;randomize ;for i:= 1 to m do beginfor j:= 1 to n do beginm [ i , j ] := random (101) ;end ; end ;for j:= 1 to n do beginp:= 1;for i:= 1 to m do beginp:= p * m [i,j] ;end ;p := p ^ ( 1 / m ) ; нельзя делитьif p > k then writeln ( ' j = '; j: 5) ;неверное выражениеend ;end.

ОТВЕТЫ

Прокл

Oct 24, 2020

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)
    end
end.

681