ПРОШУ ПОМОГИТЕ!!! ПОЖАЛУЙСТА))) Вводя по очереди оценки по контрольной работе 20...

Question

ПРОШУ ПОМОГИТЕ!!! ПОЖАЛУЙСТА))) Вводя по очереди оценки по контрольной работе 20 учащихся, определить, сколько из них было неудовлетворительных

Answer 1

Паскаль
for i:=1 to 20 do begin 
readln(ozenka); 
if ozenka<=2 then k:=k+1; end; <br>writeln(k);
думаю, объяснений не надо...