Найти сумму S1 положительных элементов и сумму S2 отрицательных элементов матрицы

@marijane · Регистрация: 09.12.2014

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

Ввести матрицу. Найти сумму S1 положительных элементов и сумму S2 отрицательных элементов над и под главной диагональю. Если S1>S2, то 1-ую и последнюю строке заменить на S1, иначе 1-ый и последний столбец на S2. Вывести матрицу на печать.

Pascal

Program zd1;
Var
  a: array [1..10,1..10] of Integer;
  s1,s2,i,j,n,m: Integer;
  begin
s1:=0;
s2:=0;
 
  begin
     writeln('Введите количество строк ');
  readln(n);
   writeln('Введите количество стобцов ');
  readln(m);
  
  For i:=1 to n do
begin
  For j:=1 to n do
    readln(a[i,j]);
    
    If i<j and a[i]>0 Then s1:=s1+a[i,j]; 
    If i>j and a[i]<0 Then s2:=s2+a[i,j];
    Write(a[i,j]:3);
  end;
  Writeln
end;
If s1>s2 Then
begin
   For j:=1 to n do
   a[1,j]:=s1;
   a[n,j]:=s1;
 end
Else
begin
   For i:=1 to n do
   a[i,1]:=s2;
   a[i,n]:=s2;
end;
Writeln('Полученнная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
        Write(b[i,j]:3);
  end;
  Writeln
end;
end.

@Cyborg Drone · 19.02.2015, 01:47

Да... Учитесь правильно задавать вопросы...

Сообщение от marijane

Найти сумму S1 положительных элементов и сумму S2 отрицательных элементов над и под главной диагональю. Если S1>S2

Ну так s1 > s2 всегда, кроме случая, когда все элементы матрицы, за исключением главной диагонали, естественно, равны 0. Тогда и только тогда s1 = s2. Может быть, имеются ввиду модули сумм?
Ну и, ещё разночтение, как правильно?
1) Найти сумму S1 положительных элементов над главной диагональю и сумму S2 отрицательных элементов под главной диагональю
или
2) Найти сумму S1 положительных элементов над и под главной диагональю и сумму S2 отрицательных элементов над и под главной диагональю

@Cyborg Drone Модератор 9874 / 5242 / 3306 Регистрация: 17.08.2012 Сообщений: 16,012
	19.02.2015, 01:47	2
	Да... Учитесь правильно задавать вопросы... Сообщение от marijane Найти сумму S1 положительных элементов и сумму S2 отрицательных элементов над и под главной диагональю. Если S1>S2 Ну так s1 > s2 всегда, кроме случая, когда все элементы матрицы, за исключением главной диагонали, естественно, равны 0. Тогда и только тогда s1 = s2. Может быть, имеются ввиду модули сумм? Ну и, ещё разночтение, как правильно? 1) Найти сумму S1 положительных элементов над главной диагональю и сумму S2 отрицательных элементов под главной диагональю или 2) Найти сумму S1 положительных элементов над и под главной диагональю и сумму S2 отрицательных элементов над и под главной диагональю 0