Как сделать

[Nikita++]

Вася не любит английский язык, но каждый раз старается получить хотя бы четверку за четверть. В текущей четверти он заметил следующую закономерность: по нечетным дням месяца он получал тройки, а по четным – четверки. Вася выяснил, в какие дни будут занятия по английскому языку в следующей четверти и выписал на бумажке все эти дни. Помогите оценить, сколько у Васи будет троек и сколько четверок. Вася получит четвертную оценку 4, если четверок не меньше, чем троек.

[Utkin]

Ну это зависит от отца Васи - найдет ли он ремень, или Вася его очень хорошо спрятал. Если найдет у Васи есть серьезные шансы перейти в разряд отъявленных хорошистов.

PS Вот оно качество современного образования - оценки зависят не от уровня знаний, а от четности дня в календаре .

[Niro]

Как-то странно - за последнии несколько дней на форуме появляются практически одни и теже задания...с совсем небольшими отличиями
Например http://programmersforum.ru/showthread.php?t=117874

[Nikita++]

Pascal

Формат входных данных
В первой строке входного файла записано единственное число N – количество дней (1 ≤ N ≤ 1 000). Вторая строка содержит N натуральных чисел от 1 до 31, разделенных пробелом.
Формат выходных данных
В первую строку выходного файла выведите числа, соответствующие дням месяцев, в которые Вася получит тройки, затем выведите числа, в которые Вася получит четверки. Во второй строке нужно вывести «YES», если Вася может рассчитывать на четверку и «NO» в противном случае. Числа следует выводить в том же порядке, в котором они идут во входных данных. При выводе числа разделяются пробелом.
Пример
input.txt output.txt
5
4 16 19 31 2 19 31 4 16 2
YES
8
29 4 7 12 15 17 24 1 29 7 15 17 1 4 12 24
NO

[Stilet]

Nikita++

А давай так - ты напишешь алгоритм, ну как и чего делать, а мы переведем в код. идет?

[Nikita++]

Сообщение от Stilet

А давай так - ты напишешь алгоритм, ну как и чего делать, а мы переведем в код. идет?

Как узнать кол-во четных и нечетных чисел в массиве??

Они не по порядку

[Utkin]

Ну если они идут по порядку, то очевидно, что половина массива четных чисеп, а вторая стало быть нечетная .

[Stilet]

Как узнать кол-во четных и нечетных чисел в массиве??

В цикле if элемент mod 2=0 then Четное.

[Niro]

Как узнать кол-во четных и нечетных чисел в массиве??

Какой признак что число чётное? Правильно - оно делится на два без остатка, вернее его остаток равен нулю.
В Паскале чему равен остаток можно проверить функцией mod
Например 4 mod 2 будет равно нулю, а 5 mod 2 не будет равно нулю.
Ну, а что бы узнать количество элементов пройдись по массиву с этим условием

[Z1000000]

var
 f : text;
 counterthree,curday: Integer;
begin
assign(f,'input.txt');
reset(f);
counterthree := 0;
while not eof(f) do
 begin
 read(f,curday);
 if curday mod 2 = 0 then counterthree := counterthree + 1
  else counterthree := counterthree - 1;
 end;
close(f);
if counterthree < 0 then writeln ('Тройка в четверти') else writeln('Четверка в четверти');
end.