1. Заполнить N-мерный массив числами 2, 1, 2, 1, …, не вводя элементы массива с
клавиатуры, и вывести его на экран в строку в виде А[1] =…, А[2] =….
2. Найти количество нулевых элементов N–мерного массива.
3. В одномерном массиве, состоящем из N вещественных элементов, вычислить
минимальный элемент и поменять местами с первым.

Пусть уже ответили, не пропадать же работе даром))
program test;
var
  a:array[1..10,1..10] of integer;
  min,max,i,i1,sum,sum2:integer;
begin
  for i:=1 to 10 do begin
      for i1:=1 to 10 do begin
          a[i,i1]:=random(1,100);
          write(a[i,i1]:4);
      end;
      writeln;
  end;
  writeln('ГЛАВНАЯ ДИАГОНАЛЬ');
  min:=a[1,1];
  for i:=1 to 10 do begin
    for i1:=i to 10 do begin
      sum:=sum+a[i,i1];
      if a[i,i1]>max then max:=a[i,i1];
      if a[i,i1]<min then min:=a[i,i1];
    end;
  end;
  writeln('сумма ',sum);
  writeln('Максимальное ',max);
  writeln('Минимальное ',min);
  sum:=0;
  writeln('ПОБОЧНАЯ ДИАГОНАЛЬ');
  min:=a[1,1];
  for i:=10 downto 1 do begin
    for i1:=1 to i do begin
      sum:=sum+a[i,i1];
      if a[i,i1]>max then max:=a[i,i1];
      if a[i,i1]<min then min:=a[i,i1];
    end;
  end;
  writeln('сумма ',sum);
  writeln('Максимальное ',max);
  writeln('Минимальное ',min);
end.

Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;       
Begin             
        clrscr;               
          writeln ('Введите X');               
          readln (x);                                            
                        IF x<0 then                           
                              writeln ('Отрицательное число x=' , x:5:2)                                                Else                           
                               Begin                           
                                       IF x>0 then                               
                                             writeln ('Положительное число x=' , x:5:2)                                Else                         
                               writeln ('Вы выбрали неверное значение');                                                     End;                         
readln;   
End.