Вычислить среднее арифметическое положительных элементов массива

warfacegamer01 warfacegamer01    3   11.08.2019 16:20    0

Ответы
lizadobhliwdf lizadobhliwdf  04.10.2020 11:39
 var a:array[1..10] of integer;
i,k,s:integer;
begin 
s:=0;  
k:=0;
for i:=1 to 10 do 
readln(a[i]);
for i:=1 to 10 do 
if a[i]>0 then  begin 
s:=s+a[i]; 
k:=k+1; 
end;
writeln(s/k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика