Напишите программу для расчета итоговой суммы награды игрока. Алгоритм должен отвечать следующим условиям:  Бонус начисляется только если игрок получит максимум за прохождение уровня.  Если игрок получил за уровень меньше максимума, то бонус он не получает. Размер получаемого бонуса определяется согласно нижеприведенной таблице. 1 уровень - x0,5 от награды за текущий уровень 2 уровень - х1 от награды за текущий уровень 3 уровень - х1,5 от награды за текущий уровень 4 уровень - х2 от награды за текущий уровень 5 уровень - x2,5 от награды за текущий уровень 6 уровень - x3 от награды за текущий уровень 7 уровень - x3,5 от награды за текущий уровень  

Напиши программу для расчета бонуса на языке программирования Python.

1) Тут в смысле надо тебе интеграл найти если да, то

Program Pr2;
uses crt;
procedure arifm(a,b:integer;var s:real);
begin
s:=(a+b)/2;
end;
procedure proiz(var a,b,c:integer);
var i,m1,m2:integer;
begin
m1:=1;m2:=1;
for i:=1 to a do m1:=m1*i;
for i:=1 to b do m2:=m2*i;
if m1>m2 then c:=m1
else c:=m2;
end;
var a,b,c:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
writeln(s);
proiz(a,b,c);
writeln(c);
end.

2)

Program Pr1;
uses crt;
procedure arifm(var a,b:integer;s:real);
begin
s:=(a+b)/2;
writeln(s:8:3);
end;
var a,b:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
end.

Паскаль

1)Program abc; Uses crt;

var S:integer; a:array [1..10,1..10];

begin 

For i:=1 to 10 do

For j:=1 to 10 do

read(a[i,j]);

writeln; 

begin

S:=0;

For i:=1 to 10 do

For j:=1 to 10 do

if i=j then S:=S+a[i,j];

write('Сумма равна',S)

end.

2) 

Program abc; Uses crt;

var min:integer;  a:array [1..10,1..10]; 

begin 

For i:=1 to 10 do

For j:=1 to 10 do

read(a[i,j]);

writeln; 

 min:=a[1,1];

For i:=1 to 10 do

For j:=1 to 10 do

if a[i,j]<min then min:=a[i,j];

writeln('Минимальный элемент  равен',min);

end.