Дан массив из 25 целых чисел. Элементы массива могут принимать значения от 0 до 10 — количество баллов за тест. Требуется найти количество учащихся, которые справились с заданием, т. е. выполнили хотя бы 5 заданий из 10.
Дополните программу:
Дополните программу:
Answers & Comments
Ответ:
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.