Найти сумму и среднее арифметическое положительных элементов массива A(N)

Question

Найти сумму и среднее арифметическое положительных элементов массива A(N)

Экономика

Гость

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

Accepted Answer

var a:array[1..10] of integer; i,s,n,k:integer; Begin read(n); for i := 1 to n do begin read(a[i]); if a[i]>0 then begin s:=s+a[i]; k:=k+1; end; end; writeln(s, s/k); End.