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

[Гость]

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

[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

[Lapp]

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

Unconnected, при всем уважении к тебе осмелюсь сказать: ты был не прав, ответив Гостю. Ты помог ему забить чужую тему, и не более того. И приписка твоя ничего не меняет. То есть, тем более: знаешь, что не надо, а делаешь..

Гости ленятся регистрироваться и лезут в чужие темы. Буду жестко удалять такие гостевые вопросы в чужих темах.

Фи-и-и тебе, Unconnected..

М

Разделяю тему

Добавлено через 11 мин.
Unconnected, а ты прогонял свою прогу? По ходу это обязательно, если не сделано оговорок (Правила раздела, п.7). Ты прогони, развлекись..

Меня еще умилила вот эта пара строк:

	c:=0;
	c:=mas1[a];

Первая строка - это разминка перед работой?