Задачи на обработку массивов и матриц ( Delphi )

[MONSTER152]

помогите пожалуйста написать программы на языке delphi к следующим задачам

1. Вставить 0 перед каждым четным элементом массива.
2. Задан массив. Отсортировать элементы с четными индексами по возрастанию, а остальные по убыванию.
3.Дана вещественная матрица A(n*m). Получить: k - число компонент матрицы A, принадлежащих отрезку [3; 5]; s - сумму компонент, не принадлежащих отрезку [7; 10].
4.Даны две матрицы. Найти максимальные значения из элементов матриц, расположенных на главной диагонали и ниже ее. Сравнить их и значение наибольшего элемента присвоить переменной Р.


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[AvaMight]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  m,n,n1,p,k,p1: Integer;
  a,a1: array of array of String;
  b,b1,b2: array of integer;
  i,j: integer;

begin
  Randomize;
  Write('Vvedute razmer matricu ');
  read(m,n);
  SetLength(a,m,n);
    SetLength(a1,m,n);
  Writeln('Startovaya matrica ');
  
  for i := 0 to m-1 do
    begin
      writeln;
      for j := 0 to n-1 do
        begin
          a[i,j]:=IntToStr(random(15));
          write(a[i,j]);
          write(' ');
        end;
    end;
  writeln;
  writeln;
  writeln('-----1. vstavutb 0 pered 4etHbimu elementami------')  ;

  for i := 0 to m-1do
    for j := 0 to n-1 do
      begin
        if (StrToInt(a[i,j]) mod 2) =0  then
          a1[i,j]:='0'+a[i,j]
        else
          a1[i,j]:=a[i,j];
      end;
  for i := 0 to m-1 do
    begin
      writeln;
      for j := 0 to n-1 do
        begin
          write(a1[i,j]);
          write(' ');
        end;
    end;

  writeln;
  writeln;
  writeln('-----2. sortirovka------')  ;
  write('Vvedute razmer massiva ' );
  read(n1);
  Writeln('Startovaya matrica ');
  SetLength(b,n1);
    for I := 0 to n1 - 1 do
      begin
        b[i]:=random(100);
        write(b[i]);
        write(' ');
      end;
  p:=0  ;
  for i := 0 to n1 - 1 do
    for j := 0 to n1- i - 3 do
      if ((j mod 2) =0) then
        if b[j]>b[j+2] then
          begin
            p:=b[j];
            b[j]:=b[j+2];
            b[j+2]:=p;
          end
        else
      else if (j mod 2) <>0 then
       if b[j]<b[j+2] then
          begin
            p:=b[j];
            b[j]:=b[j+2];
            b[j+2]:=p;
          end;

  writeln;
  Writeln('Otsortirovan massiv');
  for I := 0 to n1 - 1 do
    begin
      write(b[i]);
      write(' ');
    end;


  writeln;
  writeln;
  writeln('-----3. Naudem "k" u "p"------')  ;

  k:=0;
  p1:=0;
  for i := 0 to m-1 do
    for j := 0 to n-1 do
      begin
        if (StrToint(a[i,j])>=3) and (StrToint(a[i,j])<=5) then Inc(k);
        if (StrToint(a[i,j])>10) or (StrToint(a[i,j])<7) then p1:=p1+StrToint(a[i,j]);
      end;

  Writeln(k);
  writeln(p1);

  sleep(30000);
  end.

Написано примитивно, но вроде как все работает. 4 задание желания делать небыло ибо на форуме оно обсуждалось 100500 раз( ровно как и предыдущие 3)




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