Question

Помогите задание в паскале.Пожалуйста.

Answer 1

//PascalABC.NET
var
    m,e,o,nu,fi : integer;
begin
    var n := ReadInteger('Введите число элементов массива');
    var a := ArrRandomInteger(n, -10, 10);

    for var i := 0 to n-1 do begin
        if a[i] mod 2 = 0 then
            e += 1
        else
            o += 1;
        
        if a[i] = 0 then nu += 1;
        if a[i] = 5 then fi += 1
    end;
    
    writeln('Содержимое массива:');
    a.println;
    writeln('Количество чётных: ', e);
    writeln('Количество нечётных: ', o);
    writeln('Количество нулей: ', nu);
    writeln('Количество пятёрок: ', fi)
end.