Задать вопрос
23 декабря, 09:41

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

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)
  1. 23 декабря, 13:16
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Исправить ошибки в паскале program exp2; const m=5; n=3; type matr = array [ 1 ... m, 1 ... n ] of integer; var m: matr; k, i, j : integer; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы