Практические / prakt8 / prakt8

Program school1;
var mk:array[1..23] of integer;
st,i, sum, p2,p3,p4,p5:integer;
begin
write('Введите кол-во учащихся: ');
readln(st);

sum:=0;
p2:=0;
p3:=0;
p4:=0;
p5:=0;

for i:=1 to st do
begin
readln(mk[i]);
sum:= sum+mk[i];
if mk[i] = 5 then
p5:=p5+1
else if mk[i] = 4 then
p4:=p4+1
else if mk[i] = 3 then
p3:=p3+1
else if mk[i] = 2 then
p2:=p2+1;
end;
writeln('Средний балл учащихся в группе: ', sum/st:4:2);
writeln('Процент студентов, получивших балл 5: ', (p5/st)*100:2:2, '%');
writeln('Процент студентов, получивших балл 4: ', (p4/st)*100:2:2, '%');
writeln('Процент студентов, получивших балл 3: ', (p3/st)*100:2:2, '%');
writeln('Процент студентов, получивших балл 2: ', (p2/st)*100:2:2, '%');
end.