[joker7438]

Привет, вот надыбал фаш форум, и решил полазить!
ребята, а зачем заморачиватся?!
давайте зделаем так:

Код:

repeat
for i:=1 to 20 do
a[i]:=random(100);

for i:=1 to 20 do
   sum:=sum+a[i];

   if sum=1200 then log:=0
else if sum<>1200 then log:=1;

until log<>0;

lmikle: Пользуемся тегами!!!

вот как то так, но оно не совсем работает))) попробуйте, может кто-то доработает))))))