Двумерный массив...

[Seriy8888]

вот задачка:матрица 3 на 3
1)найти число отрицательных элементов под главной диагональю.
2)найти сумму элементов 1-й строки по формуле 5S E(это значек среднего значения)(от j-1 до 4)sina(с низу ij) +a(с низу ij)/7
3)поменять местами элемент 3 строки 1-го столбца на S
Нужна программа обычным способом и с помощью процедур.

[Tkirill]

uses crt;
type
ar=array[1..3,1..3] of integer;
var
mas:ar;
kol:integer;
procedure vvod(var x:ar);
var
i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
x[i,j]:=-random(100)+random(100);
end;
end;
end;
procedure vivod(x:ar);
var
i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(x[i,j],' ');
end;
writeln;
writeln;
end;
end;
function kolotrel(x:ar):integer;
var
k,i,j:integer;
begin
k:=0;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if (i>j) and (x[i,j]<0) then k:=k+1;
end;
end;
kolotrel:=k;
end;
begin
clrscr;
vvod(mas);
vivod(mas);
writeln(' kolichestvo otritcatelnih elementov ->',kolotrel(mas));
readln;
end.