Pascal. 3 задачи на обработку массивов ( помогите иначе не допустят к экзамену( )

[mixa26]

3 задачи дали по PASCAL, не знаю как сделать качественно и чтобы все работало. облазил различные форумы но ничего толкового не нашел. Помогите пожалуйста.
1 задача.
Дана матрица 7х7
найти произведение элементов принадлежащих отрезку(p,q) и их количиство. Определить номер столбца с максимальным количиством элементов.
2 задача.
Дан массив содержащий 12 элементов. Определить номер элемента с минимальным квадратом. Напечатать номер и значение этого элемента.
Результат Распечатать в виде:
Массив:
imin=
MIN=
3 задача.
Преобразовать два заданных массива, увеличивая их соответствующие элементы на большее из расматриваемой каждый раз пары чисел. В первом из полученных массивов найти среднее арифмитическое значение, во втором - максимальный и минимальный элементы.
ПОМОГИТЕ КТО ЧЕМ СМОЖЕТ! БУДУ БЛАГОДАРЕН!

[SaLoKiN]

Дан массив содержащий 12 элементов. Определить номер элемента с минимальным квадратом. Напечатать номер и значение этого элемента.

взять квадрат первого за мин. и потом пройти по всем значениям массива сравнивая значение мин с каждым квадратом это так сложно и не решаемо?

но ничего толкового не нашел

видимо так искал. ни мыслей,ничего. хочется просто получить готовые решения? тогда сюда фриланс

[ZX Spectrum-128]

1.

найти произведение элементов принадлежащих отрезку(p,q) и их количиство. Определить номер столбца с максимальным количиством элементов.

p:=1;
k:=0;
found:=false;
for i:=1 to n do
  for j:=1 to n do
     if (a[i,j]>=r) and (a[i,j]<=q) then
        begin
           p:=p*a[i,j];
           k:=k+1;
           found:=true;
         end;
  if found then
     writeln(p,k)
   else 
     writeln('Нет таких элементов');

2-ю часть задачи не понял. Определить номер столбца, в котором макс. количество элементов, принадлежащих отрезку?

[SaLoKiN]

2-ю часть задачи не понял. Определить номер столбца, в котором макс. количество элементов, принадлежащих отрезку?

для каждого столбца считать количество элементов попадающих в диапазон, искать максимальное кол-во и в итоге вывести его номер.

ток тогда ваш цикл по столбцам наверн...

[ZX Spectrum-128]

ток тогда ваш цикл по столбцам наверн...

Я так понял, что в первой две разные подзадачи. А впрочем, какая разница? Автору темы все равно, лишь бы сдать. Тем более что он молчит.