12 разных чисел:
1,3,9,12,15,16,18,19,23,25,28,35
А то я не программер, а генератор такой нужен
Ну, просто ABC я уже не помню, да и кому нужна среда, не умеющая создать работающую отдельно от нее программу.. .
На PascalABC.NET
const t=12; p=5; var l,j,k:integer;
var m:array [1..t] of integer:=(1,3,9,12,15,16,18,19,23,25,28,35);
begin
randomize; for j:=t downto 1 do begin k:=random(j)+1;l:=m[k];m[k]:=m[j];m[j]:=l end;
for j:=1 to p do write(m[j]:3); writeln; readln
end.
⇢