Нужно написать программу к блок схеме

Question

Нужно написать программу к блок схеме

---

Comments

Какой язык?

---

паскаль

Answer 1

Var s:real;
    z, n, k, i:integer;

begin
writeln('vvedy n');
readln(n);
z:=0;
s:=0;
for i:=1 to n do
writeln('vvedy k');
readln(k);
if k>=8 then
 begin
 z:=z+1;
 s:=s+k;
 end;
writeln(z);
writeln(s/z);
end.