Задачи на массивы (Pascal)

[sud`ba]

Написать программу с использованием процедур, ПОМОГИТЕ

1) Задан массив из 10 строк по 10 символов. Транспонировать матрицу

2) Определить сколько раз заданный элемент содержится в массиве из 100 чисел

[Mad_Cat]

Определить сколько раз заданный элемент содержится в массиве из 100 чисел

c:=0;
for i:=1 to 100 do
if a[i]=ze then c:=c+1;

Задан массив из 10 строк по 10 символов. Транспонировать матрицу

Procedure transp;
Begin
  For i := 1 to 10 do
  For j := 1 to 10 do
  Begin
    temp:= matrix1[i,j];
    matrix1[i,j]:= matrix1[j,i];
    matrix1[j,i]:= temp;
  end;
end;

[katrina 18]

помогите решить задачу на паскале. Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым отрицательным элементом возрастающую последовательность.

[katrina 18]

Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым отрицательным элементом возрастающую последовательность.помогите решить на паскале.