1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
program matrix; label 1; var x,y,z:array [1..9,1..4] of integer; x1,y1,z1:integer; procedure zero(var d:array[1..9,1..4] of integer;nol:integer); var i,j,nol:integer; begin for j:=1 to 4 do begin for i:=1 to 9 do read d[i,j]; readln end; nol:=0; for j:=1to 4 do for i:=1 to 9 do while d[i,j]=0 do if i:=9 then nol:=nol+1; end; procedure wr(var d:array[1..9,1..4]of integer); var i,j:integer; begin for j:=1 to 4 do for i:=1 to 9 do begin write(d[i,j]); writeln end; end; begin zero(x,x1); zero(y,y1); zero(z,z1); if (x1>y1) and(x1>z1) then begin wr(x); goto 1 end; if (y1>x1) and(y1>z1) then begin wr(y); goto 1 end; if (z1>x1) and(z1>y1) then begin wr(z); goto 1 end; if (x1=y1) and(x1=z1) then begin wr(z); wr(y); wr(z); goto 1 end; if (x1=y1) and(z1<x1) then begin wr(x); wr(y) goto 1 end; if (x1=z1) and(y1<x1) then begin wr(x); wr(z) goto1 end; if (y1=z1) and(x1<y1) then begin wr(y); wr(z) end; 1: end.
Во-первых, в процедуре Zero параметр-переменная только один - это матрица, параметр Nol передается по значению, потому что Var действует только до ";"
Ну и, собственно ошибка - это то, что нельзя конструировать тип в заголовке - компилятор это не пропускает, надо сначала определить тип матрицы (через Type), а потом им пользоваться...