|
Помогите решить задачки
|
|
Добрый денью Помогите решить 3 задачки!
1-Найти скалаярное произведение матрици размером Аnxn.
2-Для заданых матриц Amxm Bmxm вычислить выражение (3А+2В)(2А-В)-3АВ. (процедуры)
3-Найти найбольший 'лемент в каждой строке, и найменший 'лемент в каждом столбце матрици Аnxn.
Заранее благодарен!
Air.
|
|
|
|
2.
var
a,b,c:array[1..100,1..100]of integer;
i,j,m:integer;
begin
read(m);
for i:=1 to m do
for j:=1 to m do
read(a[i,j]);
for i:=1 to m do
for j:=1 to m do
read(b[i,j]);
for i:=1 to m do
for j:=1 to m do
c[i,j]:=(3*a[i,j]+2*b[i,j])*(2*a[i,j]-b[i,j])-3*a[i,j]*b[i,j];
for i:=1 to m do begin
for j:=1 to m do
write(c[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
3.
var
a,b:array[1..100,1..100]of integer;
i,j,n,pmax,pmin:integer;
begin
pmax:=low(pmax);pmin:=high(pmin);
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
b[j,i]:=a[i,j];end;
for i:=1 to n do begin
for j:=1 to n do
if a[i,j]>pmax then pmax:=a[i,j];
write(pmax,' ');pmax:=low(pmax);end;
writeln;
for i:=1 to n do begin
for j:=1 to n do
if b[i,j]<pmin then pmin:=a[i,j];
write(pmin,' ');pmin:=high(pmin);end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
