Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений. (на паскале)

Прогу проверил, все работает, считает как надо) если помог ставь лучший ответ и жми кнопку спасибо))

Спасибо огромное)

program qq;constN=100;var a: array [1..N] of integer;i,min,max : integer;beginmin:=0; max:=0;cls;writeln ('Массив [-20;+20]');for i:=1 to N do beginA[i]:=random (40)-20;write (A[i]:4);if A[i] < 0 thenmin:=min+A[i]else max:=max+A[i];end;writeln;writeln;writeln ('Cумма положительных элементов: ', max);writeln ('Cумма отрицательных элементов: ', min);end.