массивы

[Ksu96]

таблица содержит 100 номеров выигрышных билетов. Проверьте, является ли билет с номером N выигрышным

[stalker1995s]

Помог чем смог, данных мало. Но отпираясь на имеющиеся данные, смог прийти к этому:

var

 bil: array[1..100] of integer;
 n,i: integer;

begin

 Randomize;
 n:=Random(100);

 for i:=1 to 100 do
 begin
 Bil[i]:=i;
 end;
  for i:=1 to bil[i] do
  begin
   if bil[i]=n then Writeln('Vin bil: ',bil[i]);
  end;

 Readln;
end.

Оставшееся, додумывайте сами.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[R_G]

Помню решал эту задачу еще на первом курсе)

на С

long array[100];
for (int i=0;i<100;i++)
{
randomize();

array[i]=(rand() % 999999)+100000;
}
int happy=[100];
int summa1, summa2, happyi=0;
for (int i=0;i<100;i++)
{
summa1=0;
summa2=0;
bilet=array[i];
for (int j=1;j<=6;j++)
{
if (j<4)
{
summa1=bilet%10;
}
if (j<4)
{
summa1=bilet%10;
}else
{
summa2=bilet%10;
}
bilet=bilet/10;
}
if (summa1==summa2)
{
happy[happyi]=j;
happyi++;
}
}

[Mad_Cat]

выигрышных

!= счастливых имхо
но соглашусь с предыдущим оратором

данных мало