Разработать алгоритм и программу решения задачи с использованием

[Jereme]

Народ срочно нужна помощ!!!


Разработать алгоритм и программу решения задачи с использованием библиотечного модуля пользователя, сформировать вектор из суммы элементов строк матрицы размером 4х3, состоящей из элементов целого типа.

[Sazary]

Так и чем помочь? С нуля написать?

Показывайте, что сделали.

[IT-man]

С lucky объединяйтесь что не получается спрашивайте

[lucky]

unit matrica;
interface
uses crt;
const n=3;
type
mas=array[1..n] of integer;{тип массив-строки матрицы}
matr=array[1..n] of mas;{матрица-массив строк}
function Sred(m:mas):real;
procedure Vvod(var m:matr);
procedure Trans(var m:matr);
implementation
function Sred(m:mas):real;{вычисление среднего в массиве}
var i,sr:integer;
begin
sr:=0;
for i:=1 to n do
sr:=sr+m[i];
Sred:=sr/n;
end;
procedure Vvod(var m:matr);{ввод матрицы с клавиатуры}
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('el[',i,',',j,']=');
readln(m[i,j]);
end;
clrscr;
writeln('Матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:4);
writeln;
end;
end;
procedure Trans(var m:matr);{транспонирование матрицы, чтоб столбцы стали строками}
var i,j,x:integer;
begin
for i:=1 to n do
for j:=1 to n do
if i<j then
begin
x:=m[i,j];
m[i,j]:=m[j,i];
m[j,i]:=x;
end;
end;
end.

Программа.

uses crt,matrica;
var a:matr;
i,j,x:integer;
begin
clrscr;
Vvod(a);{ввод матрицы}
Trans(a);{транспонирование}
for i:=1 to n do {по порядку столбцов(которые сейчас строки)}
writeln('Среднее арифметическое в столбце ',i,'=',Sred(a[i]):0:2);{считаем среднее}
readln
end.

9 вариант)

[Jereme]

Блин нужно переделать под мой вариант!!!Товарисчи помогаем мне !!гарю срочно нужна помоЩЩ!!!осталось мало времени!!

[Sazary]

Jereme, так переделывайте. В чем проблема-то?

В чем нужна помощь?

[...Dreamer...]

ну чё Мока,написал???)