var
ball: array [1..30] of integer;
s: string;
n, i, sum,count: integer;
sred: real;
begin
count:=0;
Writeln('Введите колличество учащихся: ');
readln(n);
Writeln('Введите оценки: ');
for i := 1 to n do
Read(ball[i]);
for i := 1 to n do
if ball[i] > 2 then
begin
sum += ball[i];
Inc(count);
end;
sred := sum / count;
Writeln('Учеников сдавших экзамен: ', count);
Writeln('Учеников не сдавгих экзамен: ', n-count);
Writeln('Средняя оценка сдавших: ', sred:6:2);
end.
