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

@sulfur26 · Регистрация: 15.01.2013

Студворк — интернет-сервис помощи студентам

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

@Svager · 14.03.2014, 18:10

sulfur26, в чем проблема то?

Добавлено через 6 минут

Pascal

uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
 clrscr;
 randomize;
  for i:=1 to n do
   for j:=1 to n do
    a[i,j]:=random(50)-24;
 
    for i:=1 to n do
     begin
      for j:=1 to n do
       write(a[i,j]:4);
        writeln;
     end;
      s:=0;
     for i:=1 to n do
       begin
        if a[i,i]<0 then
         s:=s+a[i,i];
        if a[i,n-i+1]<0 then
         s:=s+a[i,n-i+1];
       end;
 
        writeln('S = ',s);
 readkey;
END.

@sulfur26 1 / 1 / 1 Регистрация: 15.01.2013 Сообщений: 128
		1
	Дана матрица MxM. Посчитать сумму отрицательных элементов, находящихся на диагоналях квадратной матрицы 14.03.2014, 17:31. Показов 1446. Ответов 1 Метки нет (Все метки) Посчитать сумму отрицательных элементов, находящихся на диагоналях квадратной матрицы 0

	14.03.2014, 18:10

Опции темы

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

Решение