Ответ:

program izi;

   var mass:array [1..20] of integer;

   i,n:integer;

begin

   randomize;

   for i:= 1 to 20 do

       mass[i]:= random (10);

   for i:= 1 to 20 do

       write (mass[i],' | '); //оценки учеников

   n:=0;

   for i:= 1 to 20 do  

       if mass[i] <= 2 then

           n:= n+1;

   writeln;

   writeln ('Количество учеников, получивших "плохие" отметки(0,1,2): ',n);

end.

Объяснение: