Я так понимаю намера билетов надо вывести в случайном порядке?
Пусть надо вывести в случайном порядке номера 100 билетов
program RND;
var a:array[1..100]of integer;
i.j,f:integer;
begin
randomize;
i:=1;
white i<101 do begin
f:=0;
A[i]:=int(random(100));
for j:=1 to i do if A[j]=A[i] then f:=1;
if f=0 then i:=i+1;
end;
for i:=1 to 100 do writeln(A[i]);
end.
А2=7/(29х^2)
а3=7/(29х^3)
а4=7/(29х^4)
а1+а4=7/(29х)+7/(29х^4)
Программная среда,определяющая интерфейс пользователя,скорее всего.Но
совокупность программ используемых для операций с документами,тоже верно но не только с документами
var a,i:integer;
begin
a:=1;
for i:=1 to 5 do
begin
if a mod 2 <> 0 then write(a,' ');
a:=a+1;
end;
end.
program gt;
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.