спрайт мяч движется под углом 60° из левого нижнего угла сцены доходит до края разворачивается и движется в обратном направлении

Const n=20;
var a: array[1..n] of integer; 
  i, max, imax, min, imin : integer;
begin
Randomize; 
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(101)-50; 
  write(a[i],' ');
 end;
 writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
 begin
 if a[i] > max then begin max:=a[i]; imax:=i; end;
 if a[i] < min then begin min:=a[i]; imin:=i; end;
 end;
writeln('max=',max,'  min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' ');  writeln;
end.

Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0 
max=48  min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0 

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3.
Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.

Поэтому алгоритм должен быть вроде :
 1.создаем переменную для хранения суммы
 2.3 раза читаем число, прибавляем его к общей сумме.
 3.Выводим сумму / 3

Вот и сам код, думаю на Паскале сойдет:
begin
var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3
for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin
var num: integer; //Создаем переменную для хранения текущего числа
readln(num); //Считываем его
mid := mid + num; //Присваиваем mid значение mid + num (текущее число)
end;
writeln(mid/3); //Выводим среднее
end.

Примеры:

Ввод: 1,2,3
Вывод: 3
Ведь (1 + 2 + 3) / 3 = 3

Ввод: 5, 10, 20
Вывод: 11.(6)
Ведь (5 + 10 + 20) / 3 = 11.(6)

Ввод: 5, 5, 5
Вывод: 5
и так далее...

|Если не сложно нажми кнопку " " ;)|