Помогите написать задачу)

[Sulfur26]

Дана матрица MxM. Посчитать сумму отрицательных элементов, находящихся на диагоналях квадратной матрицы. Заранее спасибо

[Хыиуду]

На диагонали находятся элементы А[i,i] и A[i, M-i] для всех i от 0 до М-1. Отрицательные - это которые меньше нуля.

[Oleg_Rus]

Код: Выделить всё

const k = 100;
type mas = array [1..k,1..k] of integer;
var a: mas;
    m: integer;

procedure inputArray;
var i, j: integer;
begin
  readln(m);
  for i:=1 to m do
  for j:=1 to m do
  read(a[i,j]);
end;

procedure sumMainDiag;
var i, j, sum: integer;
begin
  sum:= 0;
  for i:=1 to m do sum:= sum + a[i, i];
  writeln(sum);
end;

begin
  inputArray;
  sumMainDiag;
  readln;
end.
 

над оптимизацией не парился, думаю, вам и так сойдет =)

[Хыиуду]

Oleg_Rus, вы веселый - заставить человека вводить от руки 10 тысяч значений