матрицы

[amnellk]

пожалуйста помогите решить задачи в делфи.

1. Дана действительная матрица размера m х n. Определить числа b1,...bm равные значениям средних арифметических элементов строк.

2. Даны натуральное число n, действительная матрица [aij]i,j=1,...,n
Получить последовательность элементов главной диагонали a11,a22,...,ann

заранее спасибо!!!

[ОДИНОЧЕСТВО В СЕТИ]

1)

for i:=1 to m do
begin
b[i]:=0;
for j:=1 to n do
b[i]:=b[i]+a[i,j];
b[i]:=b[i]/n;
end;

2)

for i:=1 to n do
write(a[i,i]:6:3);
writeln;

[amnellk]

не подскажите что означает требуется тип множества.

[Alex Cones]

Клацнуть !!!
---------------------------------

не помогло

Клацать пока не поможет. Читать все.

[amnellk]

не помогло

[Базиля]

вот тебе пример объявления множества:

type 
{определяем базовые для множеств перечислимый тип и тип-диапазон}
colors = (red,green,blue);
smallnumbers = 0..10;
{определяем множества из наших типов}
colorset = set of colors;
numberset = set of smallnumbers;
{можно и не задавать тип отдельно}
anothernumberset = set of 0..20;
 
{объявляем переменные типа множеств}
var nset1,nset2,nset3:smallnumbers;
    cset:colorset;
begin
nset1 := [0,2,4,6,8,10]; {задаем в виде конструктора множества}
cset := [reb,blue];      {простым перечислением элементов}
nset2 := [1,3,9,7,5];    {порядок перечисления неважен}
nset3 := [];             {пустое множество}
nset1 := [0..5];         {возможно задавать элементы диапазоном}
nset3 := nset1 + nset2;  {объединение}
nset3 := nset1 * nset2;  {пересечение}
nset3 := nset1 - nset2;  {разность}
if (5 in set2) or     {проверка на вхождение элемента}
   (green in cset) then
...
end;

p.s. копипаст с вики