Даны оценки ученика по n предметам. Требуется определить общее количество пятерок и четверок.

Формат входных данных

На первой строке входного файла записано натуральное число nn (n≤100) (n≤100) - количество оценок. На следующей строке через пробел записаны оценки ученика - целые числа от 11 до 55.

Формат выходных данных

Требуется вывести искомое число.

Примеры

входные данные:

3

4 5 3

выходные данные:

2

Question

Информатика

Диониисия

22 октября, 09:14

Даны оценки ученика по n предметам. Требуется определить общее количество пятерок и четверок.

Формат входных данных

На первой строке входного файла записано натуральное число nn (n≤100) (n≤100) - количество оценок. На следующей строке через пробел записаны оценки ученика - целые числа от 11 до 55.

Формат выходных данных

Требуется вывести искомое число.

Примеры

входные данные:

3

4 5 3

выходные данные:

2

+1

Ответы (1)

Знаете ответ на вопрос?

Вадюша · Answer 1

Var

i, c, n: integer;

ar: array[1 ... 10000]of integer;

begin

c : = 0;

readln (n) ;

for i : = 1 to n do

begin

read (ar[i]) ;

if (ar[i] = 4) or (ar[i] = 5) then c : = c + 1;

end;

write (c) ;

end.