Question

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

Answer 1

program raf105;

const

 n = 35;

var

 a: array[1..30] of integer;

 b: array[1..40] of integer;

 c: array[1..n] of integer;

 i : integer;

begin

 writeln('Заполните массив A');

 for i:=1 to 30 do

   readln(a[i]);

   

 writeln('Заполните массив B');

 for i:=1 to 40 do

   readln(b[i]);

   

 writeln('Заполните массив C');

 for i:=1 to n do

   readln(c[i]);

   

 for i:=1 to 40 do

 begin

   if (a[i] < 0) or (b[i] < 0) then

     begin

       writeln('Нет');

       break

     end;

   if c[i] < 0 then

     begin

       writeln('Да');

       break

     end;

 end;

end.

PascalABC