Введите массив и определите...

[ВалерОК]

Введите массив (не более 20) и определите, есть ли в нем элементы с одинаковыми значениями.
Срочно над, помоги пж.

[Hacker19_90]

isFound := false;
for i := 1 to n do
begin
    for j := 1 to n do 
        if i <> j then
            if mas[i] = mas[j] then 
            begin
                Writeln ('ЕСТЬ!');
                IsFound := true;
            end;
     if isFound then break;
end;

[ВалерОК]

чет все запутано, а где сам массив и что такое isFound??

[Alex11223]

Это не весь код, а основная часть.

IsFound — переменная типа boolean.

                Writeln ('ЕСТЬ!');
                IsFound := true;

после этого наверно тоже выход из цикла нужен, иначе несколько раз выведет "Есть" если в одной строке несколько элементов одинаковые.

[ВалерОК]

в ABC паскале isFound не читает, может можно как нить по другому задать?

[Hacker19_90]

кто кого "не читает?"

тоже выход из цикла нужен,

Да точно, забыл!

[Alex11223]

в ABC паскале isFound не читает, может можно как нить по другому задать?

В сообщении выше не весь код, а только основная его часть! Вы сами должны дописать объявление переменных и заполнение массива.

[Rin]

const
n=20;
var
   i:integer;
   isFound:boolean;
   a:array[1..n] of integer;
begin
   randomize;
   for i:=1 to n do a[i]:=random(20);
   isFound := false;
   for i := 1 to n do
   begin
       for j := 1 to n do 
           if i <> j then
               if mas[i] = mas[j] then 
               begin
                   Writeln ('ЕСТЬ!');
                   IsFound := true;
                   break;
               end;
        if isFound then break;
   end;