Автор Ёамойленко Даниил задал вопрос в разделе Другие языки и технологии
Вывести повторяющиеся символы массива Pascal и получил лучший ответ
Ответ от Ўрий Моисеев[гуру]
Информация, что повторений нет у тебя в конце без всяких условий, поэтому выводится всегда. Попробуй добавить логическую переменную, типа того:
b:=true;
if a[i] = a[k] then begin b:=false;
writeln('Est povtori, povtoryaetsya element (elementi) ',a[i]);
end;
if b then writeln('Povtoryayushihsya elementov net!')
Юрий Моисеев
(66950)
Перенеси b:=true; выше циклов
b:=true;
for i:=1 to N-1 do
for k:=i+1 to N do
if a[i] = a[k] then begin b:=false;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Вывести повторяющиеся символы массива Pascal