Kód: Vybrať všetko

Program rozne_cisla;
uses crt;
var a:array[1..100] of integer;
    n,i,x:integer;
    bolo:boolean;
begin
clrscr;
writeln('Napis pocet cisel: ');
readln(n);
writeln('Teraz zadavaj cisla');
for i:=1 to n do readln(a[i]);

for i:=1 to n do begin
 if x=a[i] then bolo:=true;
 x:=a[i];
end;
if bolo then writeln('Cisla nie su rozne.')
        else writeln('Cisla su rozne');
readln;
end.

Kód: Vybrať všetko

for i:=1 to n do begin
if x=a[i] then bolo:=true;
x:=a[i];
end;

Kód: Vybrať všetko

for j:=1 to n do
 for i:=1 to n do
 if (j<>i) and (a[j]=a[i]) then bolo:=true;

Kód: Vybrať všetko

writeln('Teraz zadavaj cisla');
for i:=1 to n do begin
    readln(a[i]);
    for j:=1 to n do if (j<>i) and (a[i]=a[j]) then begin
                                                 bolo:=true;
                                                 continue;
                                                 end;
end;