Вычислить значение выражения - Pascal (83428)

Формулировка задачи:

Вычислить , z=(s1+s2)/(k1*k2), где s1 и k1 – сумма и количество положительных элементов массива X(N); s2 и k2 – сумма и количество положительных элементов массива Y(M) M ≤50 N ≤50

Решение задачи: «Вычислить значение выражения»

Листинг программы

type
    TMass = Array[1..50] Of Integer;
 
procedure InitMass(var arr : TMass; const n : Integer);
var
    i : Integer;
begin
    for i := 1 to n do
    begin
        arr[i] := Random(199) - 99;
        Write(arr[i]:4);
    end;
    WriteLn;
end;
 
procedure SumCount(const arr : TMass; var sum : Integer; var count : Integer; const n : Integer);
var
    i : Integer;
begin
    sum := 0; count := 0;
    for i := 1 to n do
        if (arr[i] > 0)
        then
        begin
            Inc(sum, arr[i]);
            Inc(count);
        end;
end;
 
function Z(const s1, s2 : Integer; const k1, k2 : Integer) : Real;
begin
    Z := (s1 + s2) / k1 / k2;
end;
 
var
    x, y : TMass;
    sumX, sumY : Integer;
    countX, countY, n, m : Integer;
 
begin
    Randomize;
    repeat
        Write('n=');
        ReadLn(n);
    until ((n > 0) And (n <= 50));  
    InitMass(x, n);
    repeat
        Write('m=');
        ReadLn(m);
    until ((m > 0) And (m <= 50));
    InitMass(y, m);
    SumCount(x, sumX, countX, n); SumCount(y, sumY, countY, m);
    if (countX = 0) Or (countY = 0)
    then
        WriteLn('ERROR!')
    else
        WriteLn('z=', Z(sumX, sumY, countX, countY):0:3);
end.

Объяснение кода листинга программы

Объявление типа данных TMass для массива целых чисел.
Объявление процедуры InitMass для инициализации массива случайными значениями.
Объявление процедуры SumCount для подсчета суммы элементов массива и количества положительных элементов.
Объявление функции Z для вычисления значения выражения.
Объявление переменных x, y типа TMass; sumX, sumY, countX, countY, n, m типа Integer.
Ввод значения переменной n с помощью функции ReadLn.
Вызов процедуры InitMass для инициализации массива x.
Ввод значения переменной m с помощью функции ReadLn.
Вызов процедуры InitMass для инициализации массива y.
Вызов процедуры SumCount для вычисления суммы и количества элементов массива x.
Вызов процедуры SumCount для вычисления суммы и количества элементов массива y.
Проверка на ошибки: если количество положительных элементов в одном из массивов равно нулю, выводится сообщение об ошибке.
Вывод значения функции Z с помощью функции WriteLn.
Повторение шагов 6-13 до тех пор, пока пользователь не введет некорректные значения для переменных n и m.