14 lines
266 B
ObjectPascal
14 lines
266 B
ObjectPascal
var
|
|
i, j, b:integer;
|
|
mas:array[0..9] of integer;
|
|
|
|
begin
|
|
for i:=0 to 9 do mas[i]:=Random(5);
|
|
println(mas);
|
|
for i:=0 to 9 do begin
|
|
for j:=i+1 to 8 do begin
|
|
if mas[j] = mas[i] then b:=1;
|
|
end;
|
|
end;
|
|
if b=1 then print('yes') else print('no');
|
|
end. |