Даны натуральное число n и целые числа A1..An. Выяснить, есть ли среди чисел А1..Аn совпадающие. динамическая память (Паскаль)

[zirka96]

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

Даны натуральное число n и целые числа A1..An. Выяснить, есть ли среди чисел А1..Аn совпадающие..

var
sNum : set of byte;
A : byte;
i,n : integer;
isDubli : boolean;
begin
sNum := [];
WriteLn(' kolichestvo chisel:');
Readln(n);
isDubli := false;
for i:=1 to n do begin
Write(' A[',i,'] = ');
Readln(A);
if A in sNum then isDubli := true
else Include(sNum, A);
end;
if isDubli then
WriteLn(' Est` hotya by odna para ')
else WriteLn(' Net takih par! ');
Readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

во-первых, я бы данное решение у Вас не принял. Попробуйте ввести числа более 255, поймёте, о чём я...

во-вторых, на форуме полно примеров с использованием динамической памяти.
начните с использования динамического массива (если ЯП его поддерживает).
Если нет - то можно работать с памятью через указатели.

[zirka96]

Ввел числа больше 255 и все работает так, как работало до этого

[Аватар]

Введи 255 и 511 и посмотри на ответ