Question

Составить программу по блок-схеме

Answer 1

Const
  nn=20;
var
  i,k,n,s:integer;
  a:array[1..nn] of integer;
  b:real;
begin
  Read(n);
  for i:=1 to n do Read(a[i]);
  k:=0; s:=0; i:=2;
  while i<=n do
    begin
    s:=s+a[i];
    k:=k+1; a[k]:=a[i];
    i:=i+1
    end;
  b:=s/n;
  k:=0; i:=1;
  while i<=n do
    begin
    if a[i]>=b then
      begin
      k:=i;
      s:=s+a[k]
      end;
    i:=i+1
    end;
  Writeln(k+s)
end.
   
Результат выполнения
6 1 2 0 1 3 2
23