Ответ:
Так как язык не указан, предлагаю решения на 2х языках - Python и C#
<em>Python:</em>
def main():
marks = list(map(int, input().split()))
assert len(marks) == 10
return sum(marks)/10
if __name__ == '__main__':
print(main())
<em>C#</em>
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
Обе программы протестированы и полностью выполняют поставленную задачу
<span>program nomer;
var
N:integer;
begin
writeln('vvedite chislo ');
readln(N);
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',N);
writeln;
readln;
end<span>.</span></span>
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
1)222,195,162,50 (Г-А-В-Б)
2)224,133,133,73(Б-Г-А-В)