Программа на Pascal для вычисления среднего арифметического отрицательных элементов массива С1, C2, ..., C30:

program CalculateAverageNegative;
var
i: integer;
sum: integer;
count: integer;
C: array[1..30] of integer;
begin
sum := 0;
count := 0;
// Заполнение массива
for i := 1 to 30 do
begin
write('Введите элемент C', i, ': ');
readln(C[i]);
end;
// Вычисление суммы и количества отрицательных элементов
for i := 1 to 30 do
begin
if C[i] < 0 then
begin
sum := sum + C[i];
count := count + 1;
end;
end;
if count > 0 then
writeln('Среднее арифметическое отрицательных элементов: ', sum / count)
else
writeln('Отрицательных элементов в массиве нет.');
end.

Программа запрашивает у пользователя ввести 30 элементов массива C, затем вычисляет сумму и количество отрицательных элементов. Если в массиве есть отрицательные элементы, программа выводит среднее арифметическое отрицательных элементов. Если отрицательных элементов нет, программа выводит сообщение об этом.