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

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.

Comments

а более развернуто можешь написать решив саму задачу, а не написав только образец, я имею ввиду подставить числа

---

Подставил

---

Или... Чтобы эти числа в самой программе были?

---

да, чтобы они были в самой программе

---

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

---

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

---

то есть блок-схему не сможешь составить?

---

Неть, не научен:)