матрица являющаяся суммой двух других Опции

[spektr]

у меня есть подозрение что гдето я это уже видела,но я никак не могу это найти теперь.если не сложно хоть ссылку на подобное киньте,а лучше объясните где я надурила.



ЗАДАЧА:
Вычислите матрицу C(N,N),являющуюся суммой матриц A(N,N) и B(N,N),элементы А мы задаем а элементы В высчитываютьс по формуле

B[i,j]=
| A[i,j],если A[i,j]>=0

| 1,A[i,j],если<0



МОЙ ВАРИАНТ (НЕПРАВИЛЬНЫЙ):

Program sum;
uses crt;
VAR
  A:ARRAY[1..100,1..100] of integer;
  B:ARRAY[1..100,1..100] of integer;
  C:ARRAY[1..100,1..100] of integer;
  n,i,j  :  integer;
BEGIN
  ClrScr;
  RANDOMIZE;
  WriteLn ('программа для решения очень важной фигни');
  WriteLn ('введите размерность массива');
  ReadLn (n);
  IF n<=0
    then
      Begin
        WriteLn ('­введите размерность массива снова');
        ReadLn (n);
      End
    Else
       Begin
         FOR i:=1 to n DO
         FOR j:=1 to n DO
             A[i,j]:=random(9)-5;
               FOR i:=1 to n do
               FOR j:=1 to n do
                 begin
                   IF A[i,j]>=0
                     Then
                       B[i,j]:=A[i,j]
                     ELSE
                       B[i,j]:=1;
                 End;
                   FOR i:=1 to n do
                      begin
                   FOR j:=1 to n do
                     C[i,j]:=B[i,j]+A[i,j];
                      end;
                     for i:=1 to n do
                       BEGIN
                         WriteLn;
                     for J:=1 to n do
                         begin
                           Write (A[i,j]:3);
                           Write (B[i,j]:3);
                           Write (C[i,j]:3);
                         end;
                       end;
            end;
       readLn;
END.

Сообщение отредактировано: spektr - 19.12.2006 0:08