Помогите написать задачу)
Добавлено: 14 мар 2014, 17:52
Дана матрица MxM. Посчитать сумму отрицательных элементов, находящихся на диагоналях квадратной матрицы. Заранее спасибо
Страница 1 из 1
Re: Помогите написать задачу)
Добавлено: 19 мар 2014, 11:29
На диагонали находятся элементы А[i,i] и A[i, M-i] для всех i от 0 до М-1. Отрицательные - это которые меньше нуля.
Re: Помогите написать задачу)
Добавлено: 20 мар 2014, 13:36
Код: Выделить всё
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.
Re: Помогите написать задачу)
Добавлено: 20 мар 2014, 16:09
Oleg_Rus, вы веселый - заставить человека вводить от руки 10 тысяч значений 