Случайным образом получить 15 чисел, числа в диапазоне [-50, 50]. 2. Определить количество отрицательных среди них. 3. Определить минимальное. 4. Определить среднее арифметическое среди отрицательных. Необходимо сделать в паскале

Предыдущий
вопрос Следующий
вопрос

program RandomNumbers;

var
numbers: array[1..15] of integer;
i, countNegatives, min, sumNegatives, averageNegatives: integer;

begin
randomize;

// Генерация 15 случайных чисел в диапазоне [-50, 50]
for i := 1 to 15 do
begin
numbers[i] := random(101) - 50;
write(numbers[i], ' ');
end;

// Определение количества отрицательных чисел, минимального и среднего арифметического отрицательных
countNegatives := 0;
min := 50;
sumNegatives := 0;

for i := 1 to 15 do
begin
if numbers[i] < 0 then
begin
countNegatives := countNegatives + 1;
sumNegatives := sumNegatives + numbers[i];
if numbers[i] < min then
min := numbers[i];
end;
end;

if countNegatives > 0 then
averageNegatives := sumNegatives div countNegatives
else
averageNegatives := 0;

writeln;
writeln('Количество отрицательных чисел: ', countNegatives);
writeln('Минимальное отрицательное число: ', min);
writeln('Среднее арифметическое отрицательных чисел: ', averageNegatives);

end.