Программа на Pascal:

program negative_element_check;
var
A: array[1..30] of integer;
B: array[1..40] of integer;
C: array[1..40] of integer;
i, j, k: integer;
found: boolean;
begin
found := false;
// Ввод элементов массивов
for i := 1 to 30 do
readln(A[i]);
for j := 1 to 40 do
readln(B[j]);
for k := 1 to 40 do
readln(C[k]);
// Проверка наличия отрицательных элементов
for k := 1 to 40 do
begin
if C[k] < 0 then
begin
found := true;
break;
end;
end;
// Проверка условия задачи
if found then
writeln('Да')
else
writeln('Нет');
end.

Программа сначала считывает элементы массивов A, B и C, затем проверяет наличие отрицательных элементов в массиве C. Если отрицательный элемент найден, программа выводит "Да", иначе "Нет".