Массивы: Сколько соседей стоят друг к другу лицом?

@Tarick · Регистрация: 29.01.2013

Студворк — интернет-сервис помощи студентам

В строю одним за другим стоят 25 солдат каждый из них стоит либо на север либо на юг ( их направление - random). Сколько соседей стоят друг к другу лицом? Вот решение задачи :

Кликните здесь для просмотра всего текста

Pascal

const
size=25;
var
sold:array[1..size] of char;
i:integer ;
count:integer;
begin
for i:= 1 to size do begin
if random < 0.5
then sold[i]:=')'
else sold[i]:='(';
write(sold[i]);
write;
end;
for i:=1 to size-1 do
if (sold[i]=')') and (sold[i+1]='(')
then inc(count);
write(count);
readln;
end.

Но как сделать эту задачу , если каждым из солдат выполняется следующее действие : если перед собой он видит лицо соседа по строю , то он поворачивается кругом, т.е. на 180 градусов. Через сколько секунд "поворачивание" закончится , если действия всех солдат происходят одновременно ?

Комментарий модератора

Tarick, обратите внимание на правила оформления тем:
1) заголовок должен отраждать суть задачи, а не быть обобщенным названием сотен подобных задач
2) используйте теги для оформления кода программ

Опции темы