НАЙТИ средний бал за контрольную работу если кол-во учеников выполнявших работу n. Также...

Question

НАЙТИ средний бал за контрольную работу если кол-во учеников выполнявших работу n. Также найти колличество учеников которые получили оченку 4 или 5,а также оченку 2

составить программу в гамбас(не обязательно программу если можно просто решение объяните)

Answer 1

не наю че за гамбас

пишу на паскале

 

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.