Заполнить массив С из 20 элементов следующим образом: первые 10 элементов случайные числа из интервала (-15, 21), следующие 7 по формуле i*6, остальные ввести с клавиатуры. Распечатать массив в строчку. Найти: а) сумму четных элементов б) количество положительных элементов в) найти минимальный элемент во второй половине массива г) отсортировать массив по убыванию

//Сегодня буду скучным
//Pascal ABC.NET v3.1 сборка 1219

Const
 n=20;

Var
 ar:array[1..n] of integer;
 i,s,k,min,j:integer;
begin
 randomize;
 min:=2147483647;
 for i:=1 to 10 do
 ar[i]:=random(-15,21);
 for i:=11 to 17 do
 ar[i]:=i*6;
 for i:=18 to n do
 readln(ar[i]);
 writeln(Array:);
 for i:=1 to n do
 write(ar[i]:4);
 writeln;
 i:=2;
 while in+2 do
 begin
 s:=s+ar[i];
 i:=i+2;
 end;
 writeln(Sum=,s);
 for i:=1 to n do
 if ar[i]>0 then k:=k+1;
 writeln(Count of positive elements=,k);
 for i:=10 to n do
 if min>ar[i] then min:=ar[i];
 writeln(Min=,min);
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if ar[i]    begin
     k:=ar[i];
     ar[i]:=ar[j];
     ar[j]:=k;
    end;
 writeln(Sorted array:);
 for i:=1 to n do
 write(ar[i]:4);
end.