Цитата:
Сообщение от An4ik7689
не знаю как ее доделать, помогите пожалуйста.
|
О, ужас - наворотили! А всего и надо-то, что:
Код:
Const
N=4;
Var
M:Array[0..N,0..N] of Integer;
A:Array[0..N] of Integer;
i,j:Byte;
Begin
Randomize;
For i:=0 to N do
begin
For j:=0 to N do
begin
M[i,j]:=4-Random(10);
Write(M[i,j]:4);
end;
Writeln;
end;
Writeln;
For i:=0 to N do
begin
A[i]:=10;
For j:=0 to N do
If (M[i,j]>0) and (M[i,j]<A[i]) then A[i]:=M[i,j];
If A[i]=10 then A[i]:=0;
end;
For i:=0 to N do Write(A[i]:4);
Readln;
End.
А процедуры тут, по-моему, без надобности, равно как и подключение модуля CRT - всё равно ведь ни одной команды его не используете, так зачем он Вам?