Example N7

program ex7;
USES CRT;
var x : array [1..20] of integer;
    i, k, s, s_even : integer;
    (*i - счетчик; k - кол-во положительных чисел в массиве; s - сумма
    положительных чисел; s_even - сумма значений на четных местах массива*)
begin
    clrscr;
    randomize;
    s := 0;
    k := 0;
    s_even := 0;
    for i := 1 to 20 do
        begin
            x[i] := random(30) - 5; (*Задаем массив рандомом*)
            if x[i] > 0 then (*Если число массива больше нуля, то*)
                begin
                    s := x[i] + s;(*S присваиваем сумму (+) чисел*)
                    k := k + 1;(*K присваиваем кол-во (+) чисел*)
                end;
            if i mod 2 = 0 then(*Если i четное, то s_even присваиваем*)
                s_even := s_even + x[i];(*сумму четных элементов*)
            write('x[', i, ']=', x[i], '; ');(*Выводим на экран массив*)
            if i mod 5 = 0 then(*Делаем, чтоб массив выводился по 5*)
                writeln;
        end;
    (*Выводим 'Среднее арифметическое положительных чисел'*)
    writeln('Average of positive numbers = ', s / k:5:5);
    (*Выводим 'Сумму чисел на четных местах'*)
    writeln('Summ of numbers on even place = ', s_even);
    readln;
end.