Одномерные и двухмерные массивы

[Дабл]

Одномерные массивы Дан массив (X1,X2,....X45) Найти произведение элементов с чётными и сумму с нечётными номерами.
z<x<4
Двухмерные массивы Найти максимальный элемент матрицы X (4x4)

Подскажите как сделать пожалуйста ? Я профан вообще

[ai\ekcah^p]

program zad1;
uses crt;
var
mas:array[1..45] of integer ;
pr:LongInt;
sum,z,i:integer;
begin
 clrscr;
  write('введите z->');
  readln(z);
  writeln(' введите массив в диаппазоне от 4 до ',z);

  pr:=1;
  sum:=0;
  for i:=1 to 10 do
   begin
    readln(mas[i]);
    if (mas[i] mod 2 = 0)  then
    pr:=pr*mas[i] else
    sum:=sum+mas[i];
   end;
   for i:=1 to 10 do
   writeln(mas[i]);
   writeln;
   writeln('произведение четных чисел равно -> ',pr);
   writeln('сумма нечетных чисел равна        -> ',sum);
 readln;

end.

[ai\ekcah^p]

program zad2;
uses crt;
var
mas:array[1..4,1..4] of integer ;
i,j,max:integer;
begin
 randomize;
 clrscr;
 writeln(' матрица (4*4) ');
 max:=mas[1,1];
  for i:=1 to 4 do
   begin
    for j:=1 to 4 do begin
    mas[i,j]:=random((90)-10);
    if mas[i,j]>max then
    max:=mas[i,j];
   end;
   end;
    for i:=1 to 4 do
     begin
      for j:=1 to 4 do
      write(mas[i,j]:5);
      writeln;
     end;
 writeln('максимальный элемент матрицы (4*4) -> ',max);
 readln;

end.

[Albetinio]

Помогите пожалуйста решить задачу
Задача:
"Составить алгоритм в виде блок-схемы и программу для решения задачи.
Для одномерного вещественного массив, содержащего данные о температуре воздуха за неделю, найти среднюю температуру воздуха. Элементы массива распечатать в столбец с указание имени и индекса каждого элемента"