решать. Артём, Бахром и Саид – единственные три работника на фабрике. Они ходят на работу по правилам: каждый Понедельник ровно 2 работника должны пойти на работу. В любой день: • Правило 1: если Артём идёт на работу сегодня, то Бахром завтра дома.

• Правило 2: если Бахром идёт на работу сегодня, то Саид тоже идёт на работу сегодня, но завтра Саид дома.

• Правило 3: если сегодня Саид дома, то завтра Артём будет дома.

В таблицах ниже директор написал количество работников, вышедших на фабрику в каждый день на одной неделе. Только одно из этих расписаний по правилам. Какое из них?

1. понедельник 2, вторник 3, среда 1, четверг 1, пятница 2

2. понедельник 2, вторник 1, среда 3, четверг 2, пятница 1

3. понедельник 2, вторник 1, среда 3, четверг 1, пятница 0

4. понедельник 2, вторник 1, среда 0, четверг 3, пятница 2

1.
var x, i: integer;
var c : array[1..31] of boolean;
begin
c := 0;
for i:= 1 to 31 do c[i] := false;
for i := 1 to 31 do begin
readln(x); if (x = 0) then c[i] := true;
end;
writeln('В следующие дни не было осадков: ');
for i:= 1 to 31 do if (c[i]) then writeln(c[i]);
readln(i);
end.

2.
var x,i,n,c: integer;
begin
realn(n);
for i:= 1 to n do
begin
readln(x); if (x < 0) then c := c + x;
end;
writeln('ответ: '); write(c);
readln(x);
end.

P.S. На паскале не писал давно. Код не компилировал (ибо его сюда копипастить без последствий нельзя.), так что могут быть незначительные ошибки. + сразу говорю (как программист с некоторым опытом и будучи уже не школьником) - код го*но. Так никто не делает, так никто не пишет, но для "школьного паскаля" достаточно

Примерно так. На псевдоязыке, который легко переводится в тот, который знаком

 

//

Сумм=0;

Конец=0;

 

Ввод(Ч);

Пока (Ч#Конец)  Цикл

        Если Проверить(Ч)=1 Тогда  

               Сумм=Сумм+Ч; 

       КонецЕсли;

      Ввод(Ч);

КонецЦикла;

 

Печать(Сумм);

//

 

//

Функция Проверить(П)

       Если Остаток(П,10)=4 Тогда

                Если Остаток(П,6)=0 Тогда

                         Возврат(1);

                КонецЕсли;

       КонецЕсли;

       Возврат(0);

КонецФункции

//

 

Этот текст не использует массивы, поэтому количество вводимых чисел неограничено. Их величина определяется описанием переменной(если в языке оно явно требуется, для приведенных данных достаточно описать как ЦЕЛОЕ(INTEGER)). Сумм описать побольше(если требуется).

Если в языке нет функции Остаток(обычно MOD), напиши свою, это очень просто.

Повторюсь, в Паскаль, Бейсик, 1С текст переводится очень легко, в С(Java, PHP и пр.) чуть сложнее, там немного другой синтаксис, но это преодолимые проблемы.