Матрица

[Марус]

Дан матрица А[1:5:1:5].
а) найти количество положительных элементов на главной диагонали.
б) получить вектор, содержащий сумму отрицательных элементов в каждом столбце.
в) найти сумму элементов до минимального элемента матрицы.
г) определить количество отрицательных элементов в третьем столбце

[Вадим Мошев]

Что вы хотите? Готовое решение или чтобы вам объяснили, как это сделать?
Кстати, какой язык?

[Марус]

Сделать.

В pascal

[Вадим Мошев]

Не совсем понял. Вам нужен готовый код или объяснение?

[newerow1989]

var i,j,k,imin,jmin:integer;
    a:array[1..5,1..5] of integer;
    b:array[1..5] of integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=-10+Random(21);
         Write(a[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   k:=0;
   For i:=1 to 5 do
      If a[i,i]>0 then
         k:=k+1;
   Writeln('1) k = ',k);
   Writeln('2)');
   For j:=1 to 5 do
   begin
      b[j]:=0;
      For i:=1 to 5 do
         If a[i,j]<0 then
            b[j]:=b[j]+a[i,j];
      Write(b[j]:2,'  ');
   end;
   Writeln;
   imin:=1;
   jmin:=1;
   For i:=1 to 5 do
      For j:=1 to 5 do
         If a[imin,jmin]>a[i,j] then
         begin
            imin:=i;
            jmin:=j;
         end;
   k:=0;
   For i:=1 to imin do
      For j:=1 to jmin do
         k:=k+a[i,j];
   Writeln('3) k = ',k);
   k:=0;
   For i:=1 to 5 do
      If a[i,3]<0 then
         k:=k+1;
   Writeln('4) k = ',k);
   Readln;
end.