program sred;
var
a:array[1..8] of integer;
t, res:integer;
begin
for t:=1 to 8 do
begin
read(a[t]);
res:= res+a[t];
end;
writeln('среднее арифметическое: ' + res/2);
end.
var i,s,a,k: integer;
begin
for i:=1 to 8 do
begin
readln (a);
if a>0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных чисел: ',s/k)
end.
