Если вам нужно на паскале, то ловите. Числа в массив выпадают рандомно. Диапазон (-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>
13. <span>Вычисления делать разные. Бухгалтером будеш если, будеш его изучать. А функции помогут вычислить всякие налоги, зарплату и т. д.
</span>
В левом нижнем углу иконка Пуск
Нажимаете на нее, далее жмем на кнопку Завершение Работы
1 взять где панель управления взять овал
2 левой кнопкой мыши и одновременно нажатой клавищой шифт рисуем круг
3 лучи ( берём в панелей управления палочки)
4 раскрашиваем
4 раскращиваем!