Question

информатика при изготовлении детали измеряется её диаметр . если он меньше 4 и больше 5 то деталь небракованная .определите процент брака в партии из n деталей

Answer 1

var a,i,n,k:integer;
begin
readln(n);
for i:=1 to n do begin
read(a);
if (a<4) or (a>5) then k+=1;
end;
writeln(k/n*100:1:1);
end.