Question

классе 20 учеников писали диктант по русскому языку Напишите программу подсчитывающую количество двоек троек четверок и пятерок полученным за диктант

Answer 1

var

 grade, g2, g3, g4, g5: integer;

 i: byte;

begin

 for i := 1 to 20 do

 begin

   Write('Введите оценку - '); readln(grade);

   case grade of

     2: inc(g2);

     3: inc(g3);

     4: inc(g4);

     5: inc(g5);

   end;

 end;

 Writeln('Пятерок - ', g5);

 Writeln('Четверок - ', g4);

 Writeln('Троек - ', g3);

 Writeln('Двоек - ', g2);

end.