Нужно решение задачи в Pascal и нарисованная блок-схема. Помогите пожалуйста.
Answers & Comments
super3745
Var a,b:array [1..8] of integer; s1,s2,m:byte; begin for m:=1 to 8 do begin if b[m]=1 then begin s1:=s1+a[m]; inc(s2); end; end; writeln(s1/s2); end.
Answers & Comments
begin
for m:=1 to 8 do
begin
if b[m]=1 then
begin
s1:=s1+a[m];
inc(s2);
end;
end;
writeln(s1/s2);
end.