Question

PASCALABC.NET
В массиве хранится информация об отметках 20 учащихся за контрольную работу(случайные числа от 1 до 10).Составьте программу,которая вычисляет количество учащихся,получивших неудовлетворительные отметки(0,1,2).​

Answer 1

Ответ:

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.

       

Объяснение: