LtiomaP, уууу... Эт как?))) можно пример?))

demon112, if (a1=6) and (a2=6) and (a3=6) then... Или я не так понял?

Вот почти так, только: не обязательно что а1=а2=а3=6, может же быть и так а2=а4=а5=6... И так: а2=а3=а4=6... Вариантов дофига... Поэтому надо чтоб тел сам просмотрел эти чисела и там искал числа шестёрки...

Ещё вот проблемка: включаю в прогу 3 библиотеки (menu32, font32 и rms), а у мя паскаль при компиляции выводит ошибку и закрывается. Если просто две библиотеки использую: menu32, font32 - всё нормально. Эт у мя паскаль тупит? Или я что то не так делаю? И как это можно обойти?

demon112, a:= 0; for i:= 1 to 5 do begin if a = 6 then a:= a+1; end; число а и будет числом , сколько ячеек = 6

demon112, паскаль не русский случайно используешь? Поставь английский и установи в свойствах exe файла совместимость с windows 98.

demon112, b:=0; for i:=1 to 5 do if a=6 then b:=b+1;, в переменной b будет количество чисел, равных 6 среди массива a[1]...a[5]. Код от LtiomaP неверный.

cHeRsAnYa1, ну да , спасибо потерял кое что - писал с телефона . вот надо переписать if a = 6 ... и твой код тоже неверен- он будет перебирать число а 5 раз. массив надо полюбому

cHeRsAnYa1, паскаль английский 2.02... А зачем ставить виндовс 98? У мя хр вроде как)))

странно , секлаб удаляет квадратные скобки. в общем вместо квадратных напишу круглые, if a(i) = 6 .

demon112, да не винду 98 а совместимость с 98. в свойствах посмотри

cHeRsAnYa1, seclub.org/forum/goto/7082905/ - не, твой код помоему не пойдёт... Смотри как мне надо.... Числа а1...а5 - это кубики... Они равны рандому... Ну и там определёные комбинациии, к примеру: если 3 одинаковых кубика, то ... А в твоём примере я вообще чесно говоря не разобрался, а как он буит считать сколько там этих чисел?