Даны оценки ученика по n предметам. требуется - вопрос №6151363 от elinatyul 22.07.2021 07:02

Question

Информатика: Даны оценки ученика по n предметам. требуется определить общее количество пятерок и четверок. формат входных данных на первой строке входного файла записано натуральное число nn (n≤100)(n≤100) — количество оценок. на следующей строке через пробел записаны оценки ученика — целые числа от 11 до 55. формат выходных данных требуется вывести искомое число. примеры входные данные: 3 4 5 3 выходные данные: 2

elinatyul · Answer

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.