Правила форума
Прочтите прежде чем задавать вопрос!
Uses Crt;
type
mas=array [1..100,1..100] of integer;
mass=array [1..100] of integer;
var
q,w:integer;k:byte;l:mas;S:mass;
procedure vvod(n,m:integer;var A:mas);
var
i,j:integer;
begin
ClrScr;
Randomize;
Textcolor(white);
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=Random(100);
A[i,j]:=A[i,j]-random(290);
end;
end;
Textcolor(green);
Writeln('MACCUB:');
For i:=1 to n do
For j:=1 to m do
begin
Write(a[i,j]:5,' ');
If j=m then WriteLn;
end;
end;
procedure obr (n,m:integer;a:mas; var b:mass);
var
i,j,x:integer;
begin
j:=1;
while j<=m do
begin
for i:=n downto 1 do
if A[i,j]>0 then x:=A[i,j];
b[j]:=X;
j:=j+1;x:=0;
end;
end;
procedure vivod (m:integer;b:mass);
var
j:integer;
begin
ClrScr;
for j:=1 to m do
if b[j]=0 then WriteLn('HET POLOZITELNYX B ',j,'Ctolbche')
else Writeln(j,'Ctolbech=',b[j]);
end;
begin
ClrScr;
Writeln('Pazmernost:');
Read(q,w);
Repeat
Writeln('1-BBOD');
Writeln('2-OBRAB');
Writeln('3-vivod');
Writeln('4-exit');
Writeln('vibor:');
Read(k);
case k of
1:vvod(q,w,l);
2:obr(q,w,l,S);
3:vivod(w,S);
4:halt;
end;
until k>4;
Readkey;
end.
ReadKey;
end.
Подскажете в чем ошибка... При выполнении задачи вылетает и пишет,что ошибка 202 (Переполнение стека). Как исправить? В чем ошибка? Заранее спасибо...
Сообщение отредактировано: Jangle -
