Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.

Question

Информатика

Викторка

5 мая, 15:53

Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.

+2

Ответы (1)

Знаете ответ на вопрос?

Иосиф · Answer 1

var a: array [1 ... 100,1 ... 100] of integer;

i, j, s, sn, n, m:integer;

Begin

read (n, m) ;

for i: = 1 to n do

for j: = 1 to m do begin

read (a[i, j]) ;

if (j>i) and (a[i, j]>0) then begin

sn:=sn+1;

s:=s+a[i, j];

end;

end;

writeln (s, sn) ;

End.