Найти первые равные элементы массива и заменить их на элемент с противоположным знаком

@tarakano · Регистрация: 24.12.2010

Author24 — интернет-сервис помощи студентам

условие: 1. Дан массив положительных чисел. Среди них есть равные. Найти первые равные элементы массива и заменить их на элемент с противоположным знаком.
мою решение:

Pascal

 program array3;
 var a, b:array [1..100] of integer;
 i, j, t, p: integer;
 n:byte;
 begin
 
 writeln('n=');
 read(n);
 for i:=1 to n do
 read(a[i]);
 p:=1;
 repeat
  for i:=2 to n do
  if a[i]=a[p] then
  begin
 
  t:=i;
  a[t]:=-a[t];
  a[p]:=-a[p];
  end;
  if (i=n) then
  p:=p+1;
  until (p>=n) ;
  writeln;
  for i:=1 to n do
  writeln(a[i]);
  readln;
  end.

проблемма вот в чём, она наробает не совсем правильно
например вводим: n=5 и числа 1 2 3 2 3 получается 1 2 -3 2 -3 а должно выйти 1 -2 3 -2 3
с другими числа может правильно работать

где я ошибку допустил?

@Dekio · 24.12.2010, 20:43

Pascal

for i:=1 to n-1 do
for j:=i+1 to n do
if arr[i]=arr[j] then
begin
arr[i]:=-arr[i];
arr[j]:=-arr[j];
break;
end;

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

@tarakano · 24.12.2010, 22:44 **[ТС]**

не помогло(
ps ведь эту часть проги должен был вписать вместо:??

Pascal

for i:=2 to n do
  if a[i]=a[p] then
  begin
  k:=k+1;
  t:=i;
  a[t]:=-a[t];
  a[p]:=-a[p];
  end;
  if (i=n) then
  p:=p+1;
  until (p>=n) ;

@Dekio · 24.12.2010, 22:46

тип того

@tarakano · 25.12.2010, 19:36 **[ТС]**

Сообщение от Dekio

тип того

увы, но не вышло(
может я что не правильно вставил в программу??
если не трудно, то покажите как должна выглядеть эта программа

@Dekio · 25.12.2010, 19:45

У меня всё работает.
Вот код:

Pascal

program array3;
var
arr:array [1..100] of integer;
i, j : integer;
n:byte;
begin
writeln('n=');
read(n);
for i:=1 to n do
read(arr[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if arr[i]=arr[j] then
begin
arr[i]:=-arr[i];
arr[j]:=-arr[j];
break;
end;
for i:=1 to n do
writeln(arr[i]);
end.

@tarakano · 25.12.2010, 20:12 **[ТС]**

одна проблема, прога должна заменить только Первые равные элементы массива, а не все равные(( т.е. при вводе n=5 и чисел 1 2 3 2 3 должно вывести 1 -2 3 -2 3, а не 1 -2 -3 -2 -3
если знаете как это сделать, то пожалуйста подскажите

Найти первые равные элементы массива и заменить их на элемент с противоположным знаком

Решение

Решение

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	24.12.2010, 22:46	4
	тип того 0

@tarakano 34 / 26 / 0 Регистрация: 24.12.2010 Сообщений: 165
	25.12.2010, 19:36 [ТС]	5
	Сообщение от Dekio тип того увы, но не вышло( может я что не правильно вставил в программу?? если не трудно, то покажите как должна выглядеть эта программа 0

@tarakano 34 / 26 / 0 Регистрация: 24.12.2010 Сообщений: 165
	25.12.2010, 20:12 [ТС]	7
	одна проблема, прога должна заменить только Первые равные элементы массива, а не все равные(( т.е. при вводе n=5 и чисел 1 2 3 2 3 должно вывести 1 -2 3 -2 3, а не 1 -2 -3 -2 -3 если знаете как это сделать, то пожалуйста подскажите 0