Турбо Паскаль

[deadbot]

В одномерном массиве, состоящим из N целочисленных элементов:
1. Найти сумму положительных элементов;
2.Найти произведение отрицательных элементов, расположенных на четных местах;
3.Найти количество нечетных элементов;
4.Вставить число A в массив после элемента, в котором есть цифра 5. Если таких элементов нет, выдать сообщение <<Вставка не произведена>>, иначе вставить после первого найденного элемента. Дополнительный массив не использовать;
5.Отсортировать преобразованный массив по убыванию.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел.
Помогите пожалуйста, очень надо, сколько сможете напишите плиз.

[Наки]

program Primer;
const
  nmax=1000;
var
  Arr:array [1..nmax] of integer;
  n,s,p,a,i,c,c1,a1,j,temp:integer;
  m:boolean;
begin
  {Ввод массива}
  write('Введите количество элементов массива: ');
  readln(n);
  for i:=1 to n do
    Arr[i]:=random(100);
  {Вывод массива}
  for i:=1 to n do
    writeln('Arr[',i,']=',Arr[i]);

  {Сумма положительных элементов и произведение отрицательных,}
  { расположенных на четных местах}
  {а также количество нечетных элементов}
  s:=0;
  p:=1;
  c:=0;
  c1:=0; {c1 для проверки наличия отрицательных элементов с нечетными индексами в массиве}
  for i:=1 to n do
    begin
      if (Abs(Arr[i] mod 2)=1) and  (Arr[i]<>0) {если элемент нечетный}
        then
          c:=c+1;  {увеличиваем количество нечетных элементов на единицу}
      if Arr[i]>0 {если элемент положительный}
        then
          s:=s+Arr[i] {то добавляем его в сумму}
        else   {иначе (то есть если элемент отрицательный)}
          if (i mod 2)=0 {если индекс четный}
            then
              begin
                p:=p*Arr[i];  {то добавляем элемент в произведение}
                c1:=c1+1;
              end;
    end;
  writeln('Сумма положительных элементов: ',s);
  if c1<>0
    then
      writeln('Произведение отрицательных элементов с четными индексами: ',p)
    else
      writeln('Отрицательных элементов с нечетными индексами нет');
  writeln('Колиество нечетных элементов: ',c);
  
  {вставка числа а}
  m:=false;     {для проверки, был вставлен элемент или нет}
  write('Введите целое число: ');
  readln(a);
  for i:=1 to n do {просматриваем элементы массива}
    begin
      a1:=Arr[i];   {запоминаем текущий элемент}
      repeat
        if (a1 mod 10)=5 {если последний разряд числа равен 5}
          then
            begin
              for j:=n+1 downto i+2 do  {то сдвигаем элементы массива, стоящие после i-го, вправо на 1}
                Arr[j]:=Arr[j-1];
              Arr[i+1]:=a; {вставляем число a}
              m:=true; {обозначаем, что вставка произведена}
              break;  {выходим из цикла}
            end;
        a1:=a1 div 10; {отбрасываем последний разряд числа}
      until a1=0;   {повторяем,пока не закончатся разряды числа}
    end;
  if m   {если число вставлено}
    then
      begin
        n:=n+1;{то увеличиваем число элементов массива на 1}
        writeln('Пребразованный массив:'); {и выводим массив}
        for i:=1 to n do
          writeln('Arr[',i,']=',Arr[i]);
      end
    else
      writeln('Вставка не произведена');

  {сортировка массива}
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if Arr[i]<Arr[j]
        then
          begin
            temp:=Arr[i];
            Arr[i]:=Arr[j];
            Arr[j]:=temp;
          end;
  {вывод массива}
  writeln('Отсортированный массив:');
  for i:=1 to n do
    writeln('Arr[',i,']=',Arr[i]);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.