Составьте программу заполнения массива из 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.