uses crt; const n=4; var a,b,c:array[1..n,1..n] of integer; i,j,max:integer; begin ClrScr; Randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20)-10; Write(a[i,j]:4); end; Writeln; end; Writeln; for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=random(20)-10; Write(b[i,j]:4); end; Writeln; end; Writeln; for i:=1 to n do begin max:=b[i,1]; for j:=1 to n do if b[i,j]>max then max:=b[i,j]; Writeln('Max ',max); for j:=1 to n do c[i,j]:=a[i,j]*max; end; for i:=1 to n do begin for j:=1 to n do Write(c[i,j]:4); Writeln; end; Readln; end.
четверг, 29 апреля 2010 г.
Матрицы N на N
Даны 2 действительные квадратные матрицы А и В размерности N*N. Получить новую матрицу умножением элементов каждой стороки матрицы А на max элемент соответствующей строки матрицы В.
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий