Составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и: а) находит элементы с нулевыми значениями б) находит индексы четных элементов в) подсчитывает количество отрицательных элементов г) определяет, есть ли в этом массиве хотя бы одно число, кратное трем д) находит в этом массиве индексы элементов, значения которых кратны трем . на экран выводятся исходный массив и найденные элементы

Const n=15; var a: array[1..n]   of integer; i,indx,k,tr,indxx: integer; begin  randomize;     for i: =1 to n do  begin   a[i]: =random(40)-20;     write(a[i],' ');       end;           writeln;       write('0 имеет номер: ');           for i: =1 to n do    begin   if a[i]=0 thenwrite(i);   end; writeln; indx: =0;     for i: =1 to n do    begin     if a[i] mod 2=0 then    begin    indx += 1;     a[indx]: =a[i];     end;     end;         write('индекс четных элементов: ');     for i: =1 to indx do    write(a[i],' ');           for i: =1 to n do     begin      if a[i]< 0 then       begin      inc(k);           end;             end;       writeln;   writeln('кoличество отрицательных элементов: ',k);   for i: =1 to n do   begin    if a[i] mod 3=0 then    tr: =a[i];   end;     writeln('кратное трем ',tr);       indxx: =0;     writeln('индексы кратны 3: ');     for i: =1 to n do    begin    if a[i] mod 3=0 then    begin        indxx += 1;     a[indxx]: =a[i];     write(' ',a[i]);         end;       end;           end.    

1) (c5; e8) или записать c5: e8 2) (f1; d3)  или записать  f1: d3 3) (b9; e10)  или записать  b9: e10 имя блока образуется по  следующему правилуимя левой верхней ячейки блока : имя нижней правой ячейки блока