PASCALABC.NET
В массиве хранится информация об отметках 20 учащихся за контрольную работу(случайные числа от 1 до 10).Составьте программу,которая вычисляет количество учащихся,получивших неудовлетворительные отметки(0,1,2).
В массиве хранится информация об отметках 20 учащихся за контрольную работу(случайные числа от 1 до 10).Составьте программу,которая вычисляет количество учащихся,получивших неудовлетворительные отметки(0,1,2).
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: