Предмет: Информатика,
автор: avbaih
Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: huseyinovaasye
Предмет: Қазақ тiлi,
автор: Tannurazimhanova
Предмет: Математика,
автор: medalina97
Предмет: Математика,
автор: ДИМОН99
Предмет: Химия,
автор: TheOutsiderTM