Смысл поговорки "не торопись отвечать, торопись слушать."

сначала подумай как следует,потом отвечай.

смысл сводится к тому, чтобы человек слушал других и учился на этом, а болтать глупости умеют все.

Сделал через динамический массив тоесть размер вводится с клавиатуры program project2;   {$apptype console} var a: array of integer;     i,n,s: integer; begin    randomize;   s: =0;     readln(n); //вводим размер массива с клавиатуры      setlength(a,n);   //задаем размер массива  for i: =0 to length(a) do    a[i]: =random(100);   //геним массив   for i: =0 to length(a) do    if a[i] mod 5 =0 then  //ищем сумму     s: =s+a[i];     writeln('summ: ',s);   //выводим сумму    readln; end.

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.