78

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

30 марта 2023

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

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



60

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.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...