задачаа паскаль. 7. Задан одномерный массив А (n). Найти среднее арифметическое положительных элементов массива.

Question

Татьяна Кузьмина · Accepted Answer

sa:=0; 
k:=0; 
for i:=1 to n do 
 if(a[ i]>=0) then begin sa:=sa+a[ i];k:=k+1; end; 
if(k>=0) then sa:=sa/k; 
writeln('sred arifmn: ',sa);

Сергей Hunterович))) · Answer

а я бы сделал так 
sa:=0; 
k:=0; 
for i:=1 to n do 
if(a [ i ] >=0) then 
 begin k:=k+1; sa:=sa+a [ k ] ;end; 
if(k>=0) then sa:=sa/k; 
writeln('sred arifmn: ',sa);