Здравствуйте, можете посмотреть или исправить если че не итак сделал... выводит чет не те результаты(
задание:
Составить библиотеку, реализующую следующие алгоритмы для обработки матриц:
- определить скалярное произведение L строки на K столбец (матрица квадратная);
- определить, является ли целая квадратная матрица ортонормированной, т.е. такой, в которой скалярное произведение каждой пары различных строк равно 0, а скалярное произведение каждой строки на себя равно 1;
- вычислить норму матрицы:
а) норма матрицы - это наибольшее значение из модулей элементов,
б) норма матрицы - это наибольшее значение из сумм модулей элементов строк.
- определить наименьший элемент в столбце.

-----------------------------------------------------------------
модуль
unit dd;
interface
const n=2;
m=2;
type masiv=array[1..n,1..m] of real ;
var
i,j :byte;
min,jmin,s,imax,max,k,f,g:real;
procedure ckalyarnoe(mas:masiv);
procedure ortonormirovannay(mas:masiv);
procedure norma1(mas:masiv);
procedure norma2(mas:masiv);
procedure minimal(mas:masiv);
implementation
procedure norma1;
begin
max:=mas[1,1];imax:=1;

for i:=1 to n do
for j:=1 to m do
if abs(mas[i,j])>max then
begin
max:=mas[i,j] ;
imax:=i ;
writeln('Max element ',imax:2:2);
end;
end;

procedure ckalyarnoe;
begin
for i:=1 to m do
begin
f:=f+mas[1,j]*mas[i,1];
writeln('Ckalarnui ',f);
end;
end;

procedure ortonormirovannay ;
begin
for i:=1 to m do
g:=f+mas[1,j]*mas[2,j];
k:=k+mas[1,j]*mas[1,j];
if (g=0) and (k=1) then writeln('Matrica ortonormirovannay ');

end;

procedure norma2;
begin
s:=0 ;
for j:=1 to m do;
s:=s+abs(j);
writeln('Summa ',s);
end;

procedure minimal;
begin
min:=mas[1,1] ; jmin:=1 ;
for i:=1 to n do
for j:=1 to m do
if mas[i,j] < min then
begin
min:=mas[i,j];
jmin:=j;
writeln('Minimal ',jmin);
end;
end;
end.
------------------------------------------------------------
вызывающая программа
program g4;
uses crt,DD;
const n=2 ;
m=2 ;

var mas:masiv;
i,j: byte;
min,jmin,max,imax,s,f,g,k:real;
begin
clrscr;
randomize ;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(10);
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:2:2,' ');
writeln;
end;
writeln;
norma1(mas);
ckalyarnoe(mas);
ortonormirovannay(mas);
minimal(mas);
norma2(mas);
end.

--------------------------------

я что так и не догнал как считать( результаты ваще не те. может кто-нибудь подскажет. Зарание спасибо!
Aklin J спасибо за правильно выложенный код.