Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
В лесу, парке, поле, берег речки - зрительная, слуховая, обонятельная.
во первых взят карандаш и лист
во вторых нарисовать рисунок
во третьех показать учителю
A1 A2 B1 B2 C1 C2 ---> 6 ячеек
Ответ:
Так как язык не указан, предлагаю решения на 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
Обе программы протестированы и полностью выполняют поставленную задачу