Մեջբերում Varzor-ի խոսքերից Նայել գրառումը
Էս քեզ ծրագիրը
HTML կոդ:
PROGRAM P1;
USES
    CRT;
TYPE
    Matrix = array [1..10, 1..10] of REAL;
    Vector = array [1..10] of INTEGER;
Var
   X:Matrix;
   Rows, Columns : Vector;
   i, j, M, N : INTEGER;
PROCEDURE CANGEROWCOLUMN(RowColumnIndex, MaxRowColumn : INTEGER; ChangeRow : BOOLEAN; VAR X : Matrix);
Var
   i, j : INTEGER;
BEGIN
     IF ChangeRow = True THEN
          FOR i:=1 to MaxRowColumn Do
             X[RowColumnIndex,i]:=0
     ELSE
         FOR i:=1 to MaxRowColumn Do
             X[i, RowColumnIndex]:=0;
END;
BEGIN
     TEXTBACKGROUND(Blue);
     CLRSCR;
     WRITE('INPUT M=');
     READLN(M);
     WRITE('INPUT N=');
     READLN(N);
     FOR i:=1 to M Do
         For j:=1 to N Do
         BEGIN
              GOTOXY(1+6*(j-1), 4+i);
              READ(X[i,j]);
         END;
     FOR i:=1 to M Do
         Rows[i]:=0;
     FOR i:=1 to N Do
         Columns[i]:=0;
     FOR i:=1 to M Do
         FOR j:=1 to N Do
             IF X[i,j] < 0 THEN
             BEGIN
               Rows[i]:=1;
               Columns[j]:=1;
             END;
     FOR i:=1 to M Do
         IF Rows[i] = 1 THEN
           CANGEROWCOLUMN(i, M, True, X);
     FOR i:=1 to N Do
         IF Columns[i] = 1 THEN
           CANGEROWCOLUMN(i, N, False, X);
     FOR i:=1 to M Do
         For j:=1 to N Do
         BEGIN
              GOTOXY(1+6*(j-1), 4+M+1+i);
              WRITE(X[i,j]:4:1);
         END;
     WRITELN;
     READKEY;
END.
Էս էլ բլոկ-սխեման ու pas ֆայլը
ProgramMrKaren.zip

Բարով հանձնես
Մերսի........