Матрицы. Замена элементов

[fr330n]

В одномерном массиве фиксированного размера для каждого положительного элемента определить, есть ли в массиве отрицательный элемент с противоположным значением, если да,заменить эти элементы на 0

Пример:

Было:
1 2 -3 4 5 3 -4

Стало:
1 2 0 4 5 3 0

[k0tone]

program test;
uses crt;
var a,b:array [1..64] of integer;
    i,j,N:integer;
begin
 clrscr;
 write('Vvedite N:');
 readln(N);
 clrscr;
 for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
 clrscr;
 for i:=1 to n do
 write(a[i]:4);

 for i:=1 to n do
 if a[i]>0 then
 for j:=1 to n-i do
 if (a[i]/a[j+i]=(-1)) then
  b[j+i]:=0
 else
  b[i]:=a[i];
 writeln;
 for i:=1 to n do
 write(b[i]:4);
 readln;
end.

[fr330n]

Вопрос:

Если вводим строку типа: -1 -2 -3
получаем строку типа: 0 0 0

[rubius2008]

попробуй вот вариант

for i:=1 to n-1 do
  for j:=i+1 to n do
     if a[i]=-a[j] then 
        if a[i]<0 then a[i]:=0 else a[j]:=0;

[k0tone]

program test;
uses crt;
var a:array [1..64] of integer;
    i,j,N:integer;
begin
 clrscr;
 write('Vvedite N:');
 readln(N);
 clrscr;

 for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;

 clrscr;

 for i:=1 to n do
 write(a[i]:4);

 writeln;

 for i:=1 to n-1 do
  for j:=1 to n-i do
   if a[i]=-a[j+i] then
    if a[i]<0 then a[i]:=0 else a[j+i]:=0;

 for i:=1 to n do
 write(a[i]:4);

 readln;
end.

[fr330n]

Всем спасибо. Тема закрыта.