Подсчитать количество отрицательных элементов массива, состоящего из целых элементов. паскаль. плз

program massiv;

uses crt;

type mass = array of integer;

var

n, i, x : integer;

mas : mass;

begin

writeln('сколько значений нужно поместить в массив? ');

readln(n);

setlength(mas, n);

for i : = 0 to n-1 do

begin  

writeln('введите ' + i + ' элемент в массив');

readln(mas[i]);

end;

for i : = 0 to n-1 do

if(mas[i] < 0) then

x: = x +1;

writeln('всего отрицательных элементов = '+ x);

readln();

end.

Сфе́ра — геометрическое место точек в пространстве, равноудаленных от некоторой заданной точки. Расстояние от точки сферы до её центра называется радиусом сферы. А шар

Шар — геометрическое тело; совокупность всех точек пространства, находящихся от центра на расстоянии, не больше заданного. Это расстояние называется радиусом шара. Шар образуется вращением полукруга около его неподвижного диаметра

Объяснение:

И смотри: Сфера это место точек, а шар это тело.

И ещё сфера имеет пощадь но, но он не имеет объема. А шар наоборот. поэтому я не могу их подразумевать как одинаковые