Найти сумму элементов матрицы, которые размещены в столбцах с отрицательным элементом на главной диагонали

Наталочка

Дана квадратная матрица A порядка k. Найти сумму элементов матрицы, которые размещены в столбцах с отрицательным элементом на главной диагонали. Вывести матрицу на экран и значение суммы.
Оригинал.
Дано квадратную матрицу А порядку к. Найти сумму элементов матрицы, которые розмещены в столбах з отрицательным элементом по главной диагонали. вывести на екран матрицу и величину обчисленной суммы.
5 ответов

Наталочка

const n = 5;
var a : array [1..n,1..n] of integer;
i, j, s : integer;
begin
 randomize;
 for i := 1 to n do
  for j := 1 to n do
   a[i,j] := random(20)-10;
  for i := 1 to n do
   begin
    for j := 1 to n do
     begin
      write(a[i,j]:3);
     end;
    writeln;
    end;
   for i := 1 to n do
     if  (a[i,i]<0) then
         s := s + a[i,i];
   writeln('Summa = ',s);
  readln;
end.


Наталочка

а почему n =5?


Наталочка

а почему n =5?
я так захотел) Вам вот так надо:
var a : array [1..10,1..10] of integer;
i, j, s,n : integer;
begin
writeln('vvedite n');readln(n);
randomize;
...


Наталочка

откуда появилось n=5, куда делась k? Заранее спасибо)


Наталочка

Наталочка, ваша k, как и его n - это обозначение переменной, переменную можно обозначить любой буквой латинского алфавита, и не только буквой, например: sum, count, natalka2012 и т.д.