В игре <<Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. Напишите 5 программу, которая выводит наугад первые 5 выигрышных номеров.
Доработайте программу <<Русское лото» так, чтобы все 5 значений гарантированно были бы разными (используйте разные диапазоны).(в паскале)
1) Дополненная
program Hello;
var
a : array[1..90] of integer;
i, x : integer;
begin
randomize();
for i:= 1 to 90 do
begin
a[i] := i;
end;
for i:= 1 to 5 do
begin
x := random(90) + 1;
if a[x] <> 0 then
begin
writeln(a[x]);
a[x] := 0;
end;
end;
end.