Помогите решить задачки Турбо Паскаль

[Танечка92]

Составить программу, реализующую алгоритмы обработки одномерных массивов
1)Дан массив Х={Xi} i=1,15. Определить номер максимального элемента среди тех элементов массива значени которых находятся в интервале
[2;10]
Составить программу, реализующую алгоритмы обработки всех элементов матрицы
2)Дана матрица A={aij} 5на5 вычислить сумму элементов стоящих ниже главной диагонали, и произведение ненулевых элементов, стоящих выше главной диагонали
Составить программу,реализующую алгоритм поиска минимального максимального элемента матрицы
3)Дана матрица A={aij}4 на5 найти максимальный элемент среди тех элементов матрицы, которые удовлетворяют неравенству |Aij|>2,5
Составить программу реализующую алгоритмы обработки внутри строки(или столбца) матрицы
4)Дана матрица A={aij}5на7 найти в каждом столбце матрицы количесто элементов удовлетворяюших условию |Aij|>3,2

Огромное спасибо

[Qiker]

№1

program hh;
uses crt;
var  a:array [1..15] of integer;
     k,max,i:integer;
begin
For i := 1 to 15 do begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('======');
writeln;
for k:=2 to 10 do begin

write(a[k], ' ');
end;
max:=2;
 for k:=2 to 10 do begin
  if a[k]>a[max] then
   max:=k;
   end;

   writeln('номер максимального элемента массива=' ,max);
end.

---------- Добавлено в 11:13 ---------- Предыдущее сообщение было написано в 11:11 ----------

ЗЫ
Танечка92, не понял условия №1:

Сообщение от Танечка92

среди тех элементов массива значени которых находятся в интервале
[2;10]

если этот интервал относится к i,то тогда решение правильное

[Танечка92]

Можете еще парочку решить! Заранее спасибо