Скажите программы для сампа, на подобие samp: addon ​

Еще в глубокой древности некоторые военачальники, следуя обычаю, не позволяли своим подчиненным казнить пленных, приказывали щадить женщин и детей, запрещали отравлять колодцы. Эти обычаи со временем оформились в нормы обычного права, которыми руководствовались противоборствующие стороны. В ряде случаев воюющие заключали письменные соглашения о соблюдении правил гуманного обращения с противником. Однако вплоть до второй половины XIX века такие соглашения не носили всеобщего характера и, как правило, действовали лишь во время одного сражения или одной войны.

Объяснение:

ВОЗМОЖНО ЭТО НЕ ПРАВИЛЬНО

Program Pas02;
uses Crt;
const
  n=20;
var
  a:array[1..n] of real;
  i,k:integer;
  t:real;
begin
  Randomize;
  ClrScr;
  Writeln('Массив случайных чисел');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(31)-15.0;
    Write(a[i]:6:1);
    if a[i]=10.0 then Inc(k)
    end;
  Writeln;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы ');
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin Inc(k); Write(i,' ') end;
  if k=0 then Writeln('отсутствуют') else Writeln;
  Writeln('Меняем местами элементы 3 и 6');
  t:=a[3];
  a[3]:=a[6];
  a[6]:=t;
  for i:=1 to n do
    Write(a[i]:6:1);
  Writeln
end.

Тестовое решение
Массив случайных чисел
   2.0 -12.0   8.0  -2.0  -1.0   3.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
Количество элементов, равных 10: 1
Нулевые элементы 12
Меняем местами элементы 3 и 6
   2.0 -12.0   3.0  -2.0  -1.0   8.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0