Если вам нужно на паскале, то ловите. Числа в массив выпадают рандомно. Диапазон (-50, 50):
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('Массив уникален!');
<span>
end.</span>
Так это же бред, тут же все рандомно! тут не бужет конкретного решения..
125,34(10) = 1*10^2+2*10^1+5*10^0+3*10^(-1)+4*10^(-2)
выделенные цифры:
1 -число сотен
2 -число десятков
5 -число единиц
3 -число десятичных
4 -число сотых
1. Слева - глобальная, справа - локальная
2. Левый верхний блок - плюс
Левый нижний - минус
Правый верхний - плюс
Правый нижний - минус