Проверить истинно ли утверждение

[Raphael]

Даны натуральное число N, массивы целых чисел A(30), B(40), C(N). Проверить, истинно ли утверждение, что отрицательный член в массиве C(N) встречается ранее, чем в массивах A(30) и B(40) ? Предплогается, что каждый из массивов содержит хотя бы один отрицательный член.

program massiv;
const n=10;
var
a:array [0..30] of integer;
b:array [0..40] of integer;
c:array [0..n] of integer;

Подскажите, как проверить истинно ли утверждение, что отрицательный член в массиве C(N) встречается ранее, чем в массивах A(30) и B(40) ?

[xDyPx]

i:=1; k:=1; j:=1;
while(a[i]>=0) i++;
while(b[j]>=0) j++;
while(c[k]>=0) k++;
if((k<i) && (k<j)) writeln("DA");

не забудь в var добавить i,k,j: integer;

[Raphael]

А вообще я правильно начал описывать задачу?

[xDyPx]

Да вроде правильно, хотя я давно уже на Паскале ничего не писал. И сделал ошибки у себя. Вот должен быть правильный код:

i:=1; k:=1; j:=1;
while(a[i]>=0) do inc(i);
while(b[j]>=0) do inc(j);
while(c[k]>=0) do inc(k);
if((k<i) and (k<j)) then writeln('DA');

Я намешал паскаль с С++ в моем прошлом сообщении

[Raphael]

Еще я хотел спросить, A(30) - это означает что 30 это размер массива?

[Stilet]

это означает что 30 это размер массива?

Да 30 элементов в массиве.

[Raphael]

значит в записи a:array [1..n] , вместо n можно писать 30 или это к этому не имеет отношение?