Пожалуйста, срочно помогите написать программу в Pascal ABC для вычисления среднего...

Question

Пожалуйста, срочно помогите написать программу в Pascal ABC для вычисления среднего гармонического значения элементов массива Х (N), кратных двум. При этом даны ограничения, что xi>0, N<30. N должно выбираться через генератор случайных чисел Random и Randomize.

Comments

Точно Pascal ABC? Тот самый, который его разработчики не поддерживают с 2007 года (т.е. уже ДЕВЯТЬ лет!), перейдя на PascalABC.NET ?

---

Вы не поверите, но именно по этому Pascal ABC, который уже, как 9 лет, никому не нужен, мне задают задания.

---

Всрю....некоторым задают и на ТурбоПаскаль, который умер в 1997 году...

---

*верю

Answer 1

Var
    a: array[1..100] of integer;
    i, n: integer;
    harmonic: real;
    k: integer;

begin
    Randomize;
    n := random(20) + 10;
    
    for i := 1 to n do
    begin
        a[i] := random(50);
        write(a[i], ' ');
    end;
    writeln();
    
    harmonic := 1;
    k := 0;
    for i := 1 to n do
    begin
        if a[i] mod 2 = 0 then {фильтр}
        begin
            harmonic := harmonic + 1 / a[i];
            k := k + 1;
        end;
    end;
    writeln('harmonic mean = ', k / harmonic);
end.