ПЛИИИЗ СРОЧНО НААДООО!!!!!
дан целочисленный массив.выясните,все ли его элементы различны.напишите эффективную программу для решения этой задачи
дан целочисленный массив.выясните,все ли его элементы различны.напишите эффективную программу для решения этой задачи
Answers & Comments
var mass: Array[1..30] of real;
i, j: integer;
isE: boolean;
begin
randomize;
isE := true;
for i := 1 to 30 do begin
mass[i] := random (100) - 50;
end;
for i := 1 to 30 do begin
writeln('mass[', i, '] = ', mass[i]);
end;
for i := 1 to 30 do begin
for j := 1 to 30 do begin
if i <> j then begin
if mass[i] = mass[j] then begin
writeln('Массив не уникален!');
isE := false;
end;
end;
end;
end;
if isE = true then writeln('Массив уникален!');
end.