Предмет: Информатика,
автор: h4ve33
Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.
Ответы
Автор ответа:
0
const
n = 20;
var
a:array[1..n] of integer;
i, j:integer;
check:boolean;
begin
for i := 1 to n do
begin
repeat
a[i] := random(21);
check := true;
for j := 1 to i - 1 do
if a[i] = a[j] then
begin
check := false;
break;
end;
until check;
write(a[i], ' ');
end;
writeln;
end.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Алгебра,
автор: Аноним
Предмет: Русский язык,
автор: Аноним
Предмет: Обществознание,
автор: Аноним