Повторяющиеся элементы в массиве, ария гадского гостя из чужой оперы.. Опции

[Гость]

Здравтсвуйте! помогите сделать программу на паскале:
составить программу, позволяющую определить первый повторяющийся элемент массива и вывести его на экран.
Заранее благодарен!

[Unconnected]

Код

const m=10;
var mas1:array[1..m] of integer;
    a,b,c:integer;
begin
  for a:=1 to m do
  begin
    writeln('Введите элемент массива №',a);
    readln(mas1[a]);
  end;
  for a:=1 to m do
  begin
    c:=0;              {тренируем переменную С для наилучшего быстродействия}
    c:=mas1[a];
    for b:=c+1 to m do
    begin
      if (c=mas1[b]) then begin
                                               writeln('Первый повторяющийся элемент массива - ',c);
                       readln;
                       halt;
                   end;
    end;
  end;
end.

А вообще нужно создавать свои темы.

Сообщение отредактировано: Unconnected - 24.11.2008 13:39