линейным поиском через while

[ччч1]

for i:=1 to n do
 begin found:=false
  for j:=1 to m do
    if a[i]+b[j]
     then found:=false
      if not found
      then writeln(a[i])
  found:=false;end
   then found:=true

вложеный цикл заменить на while линейным поиском ввиде подпрограммы...помогите пожауйста..не знаю как через while

[Ezhik Kihze]

А что это за внутренний цикл

for j[i]+b[j]

?

[ччч1]

 for a [i]+b[j]

не правильно написала

[netpolice]

for а[i]+b[j]
   then found:=true

Знаете мой воспаленный мозг, все равно считает что здесь компилятор должен выдавать ошибку

[ччч1]

for i:=1 to n do
 begin found:=false
  for j:=1 to m do
    if a[i]+b[j]
     then found:=false
      if not found
      then writeln(a[i])
  found:=false;end
   then found:=true

[s-andriano]

цикл

for i := 0 to N do begin
...
end;

меняется на

i := 0
while i <= N do begin
...
  inc(i);
end;

[ччч1]

i := 0
while i <= N do begin
  found:=false
  while j<=1 m do
    if a[i]+b[j]
     then found:=false
      if not found
      then writeln(a[i])
  found:=false;end
   then found:=true

не так?

[s-andriano]

Не так.
Сравните, что написано в постах №6 и №7.