Составьте программу определения количества положительных и отрицательных элементов матрицы А

Составьте программу определения количества положительных и отрицательных элементов матрицы А
Составьте программу определения количества положительных и отрицательных элементов матрицы А(10,15) элементы которой заполняются случайными числами в диапазоне от - 2 до +2 . На печать вывести исходную матрицу и полученные результаты.

  • не совсем понял про диапазон принимаемых значений
    как то так
    program qwe;
    var A:array[1..10, 1..15] of real;
    i, j, cntPol, cntOtr:integer;

    begin
    //заполнение и подсчет
    for i:=1 to 10 do
    for j:=1 to 15 do begin
    A[i,j]:=(random(4)-2)*pi;
    if A[i,j] > 0
    then inc(cntPol)
    else inc(cntOtr);
    end;

    //вывод на экран
    writeln('Матрица: ');
    for i:=1 to 10 do begin
    for j:=1 to 15 do
    write(A[i,j]:0:3,' ');
    writeln;
    end;

    writeln('Положительных элементов: ', cntPol);
    writeln('Отрицательных элементов: ', cntOtr);

    end.