Задача на Pascal:
На вход программы подаются значения элементов трех целочисленный массивов: А1...А30, В1...В40, С1...Сn(n<=40). Написать программу которая выводит на экран слово "Да", если отрицательный элемент в массиве С встречается раньше, чем в массивах А и В. В противном случае на экран должно быть выведено слово "Нет". Предполагается, что каждый из массивов содержит хотя бы один отрицательный элемент.
Заранее Спасибо!

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

Программа на 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. Если отрицательный элемент найден, программа выводит "Да", иначе "Нет".