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

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

program RandomNumbers;

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

begi
randomize;

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

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

for i := 1 to 15 d
begi
if numbers[i] < 0 the
begi
countNegatives := countNegatives + 1
sumNegatives := sumNegatives + numbers[i]
if numbers[i] < min the
min := numbers[i]
end
end;

if countNegatives > 0 the
averageNegatives := sumNegatives div countNegative
els
averageNegatives := 0;

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

end.