Вопрос по информатике:
Исправить ошибки в паскале
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.
- 15.08.2018 00:56
- Информатика
- remove_red_eye 18090
- thumb_up 48
Ответы и объяснения 1
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.
- 16.08.2018 05:11
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.