Комментарии: Решаем задачи Абрамян на Паскале. Array49

Автор: Bronislav

Bronislav — Wed, 01 Aug 2018 13:37:42 +0000

но даже если поменять, как я написал выше (в случае массива 5,2,3,4,6), то и такой массив проглотит 5,2,3,4,2, а это неправильно

Автор: Bronislav

Bronislav — Wed, 01 Aug 2018 13:01:10 +0000

22 строка первого решения нужно поменять на

if a[i] = i2 then check := True;

1	if a[i] = i2 then check := True;

Автор: Anton

Anton — Fri, 18 Mar 2016 15:30:57 +0000

В ответ на Anton. Да и к стати... можно ещё и множества использовать... добавил решение.

Автор: Anton

Anton — Fri, 18 Mar 2016 15:14:50 +0000

В ответ на Anton. я правильно понимаю алгоритм: снчала узнаём, что значения не выходят из пределов от 1 до N, а потом смотрим нет ли сдвоенных значений? если есть запоминаем какое?

Автор: Anton

Anton — Fri, 18 Mar 2016 15:05:38 +0000

Поясню, я использовал значение i которое получается после прохождения цикла for, но это значение различно в разных компиляторах. Поправил:
Было:

 if i=N+1 then Writeln(0);

1	if i=N+1 then Writeln(0);

Стало:

if check then Writeln(0);

1	if check then Writeln(0);

Автор: olegst1975

olegst1975 — Fri, 18 Mar 2016 12:48:43 +0000

С 29 строкой разобраться + рассмотреть вариант когда a[i] выходит за интервал [1..N].
Мое видение, но верю. что можно лучше)

[crayon-694f78a562155931713186 inline="true" ]
var
  n,i,i1,check:integer;    
  a:array [1..10]of integer;
begin    
  readln(n);    
  for i:=1 to n do readln(a[i]);
  check:=0;  
  for i:=n downto 1 do 
      if (a[i]<1)or(a[i]>n) then check:=i;
  for i:=1 to n-1 do        
      for i1:=i+1 to n do
            if a[i]=a[i1] then if (check=0)or(i1<check) then check:=i1;       
  write(check); 
end.

[crayon-694f78a562155931713186 inline="true" ]

var

n,i,i1,check:integer;

a:array [1..10]of integer;

begin

readln(n);

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

check:=0;

for i:=n downto 1 do

if (a[i]<1)or(a[i]>n) then check:=i;

for i:=1 to n-1 do

for i1:=i+1 to n do

if a[i]=a[i1] then if (check=0)or(i1<check) then check:=i1;

write(check);

end.

[/crayon]