Question

решить на паскале к первая задача( вариант 9)

Answer 1

var
  g: real;
  k: integer;
  n: byte := 9;
  a: array of real := (-2, 4, 8, 0, 5, 0, 3.6, 6.1, 55);

begin
  for i: byte := 1 to n do
  begin
    if (a[i - 1] = 0) then continue;
    g += a[i - 1];
    k += 1;
  end;
  writeln(g / k);
end.

Answer 2

вот теперь спасибо, а можешь блок схему составить к этой программе, пожалуйста.

Answer 3

Не представляю, как в неё можно было бы массив написать