Двумерные массивы (Pascal)

[Дима82]

Найти минимальный элемент в заданной строке матрицы...

Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
    min:real;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy: ');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Minimalnyi elementy matricy: ',min:4:2,'':3);
 min:=A[I,1];
 For I:=1 to P do
 For J:=1 to Q do
 if A[I,J]<min then begin
 min:=A[i,1];
 End;
Readkey
End.

Помогите подправить программу...

[Xardas]

//..........
for i:=1 to p do
begin
       min:=A[i,1]; //берем за первоначальное значение мин. элемента первый элемент каждой строки
       for j:=2 to q do
       if A[i,j]<min 
       then
             begin
             min:=A[i,j];
             C[i]:=min; //заносим минимальный элемент каждой строки в одномерный массив
             end;
end;
//............

Где-то так...

[Дима82]

Не получается...

Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
    min:real;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy: ');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Minimalnyi elementy matricy: ');
 For I:=1 to P do begin
 min:=A[I,1];
 For J:=2 to Q do
 if A[I,J]<min then begin
 min:=A[I,J];
 C[I]:=min;
 end;
 Writeln(C[I]:4:2,'':3);
 End;
Readkey
End.

[Olympian]

ты после

min := A[I,1];
делай
C[I] := min;

а то получается, что если минимальный эл-т первый, то ты его никак не сохраняешь

[Дима82]

Он выводит не минимальное заданной строки, а первый столбец...

Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
    min:real;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy: ');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
  Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Minimalnyi elementy matricy: ');
 For I:=1 to P do begin
 min:=A[I,1];
 C[I]:=min;
 For J:=1 to Q do
 if A[I,J]<min then begin
 min:=A[I,1];
 C[I]:=min;
 end;
 Writeln(C[I]:4:2,'':3);
 End;
Readkey
End.

[Olympian]

Ой, проглядел кое-что=)
#
# if A[I,J]<min then begin
# min:=A[I,1];
# C[i]:=min;
# end;

Этот цикл

min := A[I, J]; { А не A[I, 1] }

[Дима82]

Нет всё равно не получается здесь должно быть, что то другое...

[Дима82]

А-а-а, всё правильно, я сам, что то ступил... А можно сначала задать строку, а потом уже найти минимальное, так как в задании сказано "в заданной строке"...

[Olympian]

ну а как иначе?=)Искать минимум нигде?
задать строку - просто таким же двойным циклом
for i := 1 to P do
for j := 1 to Q do
Write(A[i, j]);

[Дима82]

Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
    K,min,s:real;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy: ');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
  Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Minimalnyi elementy matricy: ');
 For I:=1 to P do begin
 min:=A[I,J];
 For J:=1 to Q do
 if A[I,J]<min then begin
 min:=A[I,J];
 end;
 Write('str=');
 For I:=1 to P do begin
 For J:=1 to Q do
 s:=J;
 End;
 K:=min;
 Writeln(K:4:2,'':3);
 end;
Readkey
End.

Помогите, пожалуйста, задать строку, не получается...