Question

Дан массив из 25 целых чисел. Элементы массива могут принимать значения от 0 до 10 — количество баллов за тест. Требуется найти количество учащихся, которые справились с заданием, т. е. выполнили хотя бы 5 заданий из 10.

Дополните программу:

Answer 1

Ответ:

Program N01;

var a: array[1..25] of integer;

   k, i: integer;

begin

 k:=0;

 for i:= 1 to 25 do  

 begin

   read(A[i]);

   if a[i]> 4 then k:=k+1;

 end;

 writeln('k= ', k);

end.