Исправить ошибки в паскале

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.

Question

Информатика

Петринка

10 апреля, 08:28

Исправить ошибки в паскале

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.

+5

Ответы (1)

Знаете ответ на вопрос?

Костюша · Answer 1

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.