Question

Даю 21 бал, Найдите среднее арифметическое сумы из 8 положительных введенных с клавиатуры

Answer 1

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.

Answer 2

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.