Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество…

Question

78

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

skromny · Accepted Answer

60

skromny

05 февраля 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: