задача о матрице и одномерном массиве Опции

[sps]

вроде написал задачу, но есть ошибки, помогите ПЛИЗ!!!!!!!!!!!!!!!!

program Project4;

{$APPTYPE CONSOLE}
 type tm=array[1..4,1..5] of integer; mas=array[1..5] of real;
var
  A: tm;
  B: mas;
  i: integer;
  sps: real;
 procedure vvod(m,n:integer;var x:tm);
var i,j: integer;
begin writeln('Input Matr');
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
readln;
end;

 Procedure Vozr(m : tM;ii : Byte;Var sps:real);
  var i: integer;
 begin
For i:=1 to 5 do
  If a[i,ii]<a[i+1,ii] then B[i]:=1 else
  b[i]:=0;
  sps:=b[i];
end;

 procedure MasOut(n:integer;var p:mas;c:char);
var i:integer;
begin
writeln('results for',c);
for i:=1 to n do
write(p[i],'');
writeln;
end;
begin
vvod(4,5,a);
For i := 1 to 5 do begin
  Vozr(a, i, sps);
  B[i] := sps;
end;
MasOut(5,B,'B');
readln;
 end.

Сообщение отредактировано: volvo - 16.12.2005 20:15