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

[flame-93]

Добрый день. Помогите исправить ошибки в задачах.
Спасибо).

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.

program exp3;
const m=5; n=3;
type matr = array [1..m,1..n] of integer;
var m: matr; b, i,j, k : integer; повторно объявленный идентификатор
begin
clrscr ;
randomize;
for i:= 1 to m do begin
for j:= 1 to n do begin
m [i,j] := random (101) ;
end ; end ;
k:= n/2 ; попытка присвоить integer тип real
for j:= 1 to k do begin
for i:= 1 to m do begin
b := m [ i, j ] ;
m [ i , j ] := m [ i, n - j + 1 ] ;
m [i, n - j +1 ] := b ;
end ; end ;
for i:= 1 to m do begin
for j:= 1 to n do begin
writeln ('m[i,j]: 5) ; неверное выражение
end ;
writeln ; readln ; end; end .

program massiv2 ;
type mas=array [1..100] of integer ;
var a:= Max; i, n, min , max, b : integer; недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)
begin
writeln ('n='); readln (n) ;
for i:=1 to n do
begin
writeln ('a[',i,'=');переменная а не является именем массива
readln (a [i]); end;
max :=a[ 1 ]; min :=a[ 1 ]; переменная а не является именем массива
for i:=1 to n do begin
if a[ i ]> max then max :=a[ i ] ; переменная а не является именем массива
if a[ i ]<min then min :=a[ i ];
end;
b:=max - min ;
writeln (b) ; writeln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[evg_m]

повторно объявленный идентификатор

где-то раньше БЫЛА и есть такая переменная.

writeln ( ' j = '; j: 5) ;неверное выражение
end ;

значения параметров перечисляются через ,(запятую)
а вот описания параметров при объявлении процедур(функций) через ;

clrscr ; неизвестный идентификатор

ну нет такой процедуры.
есть если не изменяет память clscr (а луше посмотреть в справке)

p := p ^ ( 1 / m ) ; нельзя делить

ну наверно нельзя использовать дробное(НЕ целое) число для показателя степени.

k:= n/2 ; попытка присвоить integer тип real

ну нельзя же использовать дробное(НЕ целое) число там где ДОЛЖНО быть ЦЕЛОЕ и только.

writeln ('m[i,j]: 5) ; неверное выражение

а кто будет заканчивать строку, Пушкин?

var a:= Max; i, n, min , max, b : integer; недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)

ну нельзя вычислить переменную пока не начала работать программа.
(вычисления ТОЛЬКО после begin)
P.S. а называть переменные как системные функции себе дороже.

max :=a[ 1 ]; min :=a[ 1 ]; переменная а не является именем массива

посмотри на тип переменной a. там ведь нет слов array of

[flame-93]

Мне просто прислали их вот так. А что изменить я не знаю(

[Serge_Bliznykov]

Сообщение от flame-93

clrscr ; неизвестный идентификатор

Uses Crt;

Сообщение от flame-93

Мне просто прислали их вот так. А что изменить я не знаю(

Вам evg_m по каждой ошибке подробно написал, что не так/что исправить.
Что-то осталось непонятным?

ну, например, первая же ошибка (повторно объявленный идентификатор):

Сообщение от flame-93

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 ; повторно объявленный идентификатор

нельзя описывать один и тот идентификатор ДВАЖДЫ.
придумывайте для массива другое имя вместо m
или меняйте имя для числовой константы m

и ещё совет.
код обязательно оформляйте с помощью отступов - чтобы было наглядно видно структуру кода.

[gantzboss]

Сообщение от flame-93

p := p ^ ( 1 / m ) ;

Это "^" ведь спецификатор, что он тут делает? Вы возводите в степень так?

[evg_m]

Мне просто прислали их вот так. А что изменить я не знаю(

спроси того кто прислал.