Составтье программу, средний по контрольной работе из 10 человек. отметки учащихся вводится с клавиатуры. сделайте.

Решение на Pascal:

var

   i, sum, k, x : integer;

   ans : real;

begin

   sum := 0;

   k := 0;

   for i := 1 to 10 do begin

       read(x);

       sum := sum + x;

       k := k + 1;

   end;

   ans := sum / k;

   writeln(ans);

end.

Так как язык не указан, предлагаю решения на 2х языках - Python и C#

Python:

def main():

marks = list(map(int, input().split()))

assert len(marks) == 10

return sum(marks)/10

if __name__ == '__main__':

print(main())

C#

using System;

namespace Global

{

   class App

   {

      int[] marks = new int[10];

       double summ = 0;

       static void Main(string[] argv)

       {

           App Obj = new App();

           Obj.Run();

       }

       public void Run()

       {

           for(int i = 0; i < 10; i++)

           {

               marks[i] = Convert.ToInt32(Console.ReadLine());

           }

           for (int i = 0; i<10; i++)

           {

               summ = summ + marks[i];

           }

           Console.WriteLine(summ / 10);

           Console.ReadKey();

       }    

   }

}

Объяснение:

На случай проблем с копированием кода оставляю ссылки на исходный код на сервисе pastebin.com:

Python: https://pastebin.com/a74HdSQU

C#: https://pastebin.com/6JQA5GvX

Обе программы протестированы и полностью выполняют поставленную задачу