Автор: _Igor_ 6.02.2004 9:20
Помогите, плиз!
Дана целочисленная матрица. Орпеделить:
1) Сумму элементов в тех столбцах, которые не содержат отрицательных элементов
2) минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы
Надеюсь на вашу помощь!
Автор: trminator 6.02.2004 21:59
Первая:
Код
program matrix4ever;
const n = 3;
var a: array[1..n, 1..n] of integer;
i, j, s : integer;
begin
writeLn('Enter matrix:');
for i:=1 to n do
for j:=1 to n do read(a[i,j]);
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
if A[i,j] > 0 then inc(s, A[i,j])
else begin s:=-1; break end; {*}
if s >= 0 then writeLn(i:2,' CYMMA - ', s)
end;
end.
* Если встретили отрицательный элемент, в сумму заносим -1 и прекращаем вычисление
** Если сумма меньше нуля (точнее, если она равна -1), в строке были отрицательные элементы. Ее не выводим