Вопрос от посетителя
НАЙТИ средний бал за контрольную работу если кол-во учеников выполнявших работу n. Также найти колличество учеников которые получили оченку 4 или 5,а также оченку 2
составить программу в гамбас(не обязательно программу если можно просто решение объяните)
Отвечает Илюха:
не наю че за гамбас
пишу на паскале
var a:array[1..100] of integer;
i,n,k5,k4,k2:integer;
s:real;
Begin
read(n);
for i := 1 to n do begin
writeln(‘Ввведите оценку учиника ‘,i);
readln(a[i]);
s:=s+a[i];
if a[i]=5 then k5:=k5+1;
if a[i]=4 then k4:=k4+1;
if a[i]=2 then k2:=k2+1;
end;
writeln(s/n,k5,k4,k2);
End.