решить проблему на языке Паскаль. 15. Два шарика, вращающиеся по кругу на встречу друг другу​

Объяснение:

1) import random  

len_l = int(input())

if len_l > 50:

   print('Число больше 50')

else:

   A = [(random.randint(0,200)-100) for i in range(len_l)]

   print (A)

   max=[A[0],0]

   min=[A[0],0]

   x=0

   for x in range(len(A)):

       if max[0] < A[x]:

           max[0]=A[x]

           max[1]=x

       if min[0] > A[x]:

           min[0]=A[x]

           min[1]=x  

   print(max)

   print(min)

2) Зачем писать алгоритм, если в питоне есть встроенная функция:

import random  

len_l = int(input())

if len_l > 50:

   print('Число больше 50')

else:

   A = [(random.randint(0,200)-100) for i in range(len_l)]

   print (A)

   A.sort(reverse=True)

   print (A)

3) Насчет 3 задания не понял как нужно расположить элементы во втором массиве. Я написал что массив такой же длины, в четных элементах массива находится сумма , как написано в задании. Если не правильно понял, скажите как надо

import random  

len_l = int(input())

if len_l > 50:

   print('Число больше 50')

else:

   A = [(random.randint(0,200)-100) for i in range(len_l)]

   B = [0 for i in range(len_l)]

   print (A)

   x=0

   print (B)

   for x in range(0,len(A),2):

       B[x]=A[x]+A[x+1]

   print (B)

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.