Написать программу на си ! : дана квадратная матрица. найти сумму четных элементов над побочной диагональю.

267

320

Посмотреть ответы 2

Ответы на вопрос:

Bog1209

Информатика

4,8(44 оценок)

что-то типа этого:

const n = 8, m = 8; var a: array[1..n,1..m] of integer; i, j, sum, product: integer; isnotnull: boolean; begin randomize; writeln('случайная матрица: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j] : = random(51) - 25; write(a[i,j]: 5); end; writeln; end; sum : = 0; for i: =1 to n do if a[i,n-i+1] < 0 then sum : = sum + a[i,n-i+1]; writeln('сумма отрицательных элементов побочной диагонали = ', sum); product : = 1; isnotnull : = false; for i: =1 to n-1 do for j: =2 to n do if (j > i) and (a[i,j] < > 0) then begin isnotnull : = true; product : = product * a[i,j]; end; if isnotnull writeln('произведение ненулевых элементов в области выше главной диагонали = ', product) else writeln('ненулевых элементов в области выше главной диагонали нет.', product); readln; end.