Nучащихся получили оценки за контрольную работу. ввести оценку каждого ученика, найти средний , кол-во неудовлетворительных оценок

Var    p: real;     i,n,k,s: integer; begin  writeln('введите количество учащихся');   readln(n);   k: =0;   p: =0;     for i: = 1 to n do          begin              read(s);         if s=5 then k: =k+1;           p: =p+s;         end;   write('средний ',p/n,' количество отличных оценок ',k)end.

Using system; class program {         static void main(string[] args)         {             int n=10;             int[] a = new int[n];             int s=0;             random r = new random();             console.writeline("массив a: ");             for (int i = 0; i < n; i++)             {                 a[i] = r.next(50);                 console.write("{0,5}", a[i]);             }             console.writeline();             console.writeline("номера чисел, кратных 9: ");             for (int i = 0; i < n; i++) {             if (a[i] % 9 == 0) console.write("{0,3}", i);             if (a[i] % 10 == 1) s += a[i];             }             console.writeline();             console.writeline("s = {0}", s);             console.readkey();         } } пример (для n=10): массив a:   1 9 47 20 4 10 27 23 4 46номера чисел, кратных 9: 1 6s = 1