Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

Question

Информатика

Антонин

5 августа, 23:34

Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

+4

Ответы (1)

Знаете ответ на вопрос?

Аля · Answer 1

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.