задача по масиву Опции

[kyhner]

помогите пожалуйста задание такое (даны 3-табл A(100) b (100) c (100) известно что существуют целые числа встречающиеся во всех 3-х табличах.найти одно такое число. лучше зделать это с помощью процидур и функций.

[klem4]

Проще (в плане написания) только простым перебором.

find := false;
i := 1;
while (i <= 100) and not(find) do begin
  j := 1;
  while (j <= 100) and not(find) do begin
    k := 1;
    while (k <= 100) and not(find) do begin
      find := (a[i] = b[j]) and (b[j] = c[k]);
      if not(find) then inc(k);
    end;
    if not(find) then inc(j);
  end;
  if not(find) then inc(i);
end;

if find then writeln(a[i]);

Исправил

Сообщение отредактировано: volvo - 2.11.2006 1:01