[v1s2222]

Полностью писать не буду, только намекну:
По первой:

Код:

var
  a: Array[1..10]: Real;
  i: Integer;
  sum: Real;
begin
... // заполнение массива
  // сума положительных:
  sum:=0;
  for i:=1 to 10 do
    if(a[i] > 0) then
      sum:=sum+a[i];
  Write(sum);

по второй:

Код:

var
  a: array[1..10, 1..10] of Real;
  i, k: Integer;
  sum: Real;
  max: Real;
begin
  ... // заполнение массива

  sum:=0;
  for i:=1 to 10
    for k:=1 to 10  do
      sum:=sum+a[i, k];  
// все... мы нашли суму.
  Write(sum);
// теперь макс. элемент:
  max:=a[1,1];
  for i:=1 to 10 do
    for k:=2 to 10 do
      if(max < a[i, k]) then
        max := a[i, k];

  write(max);

ЗЫ во второй задаче можно уменьшить кол-во циклов (до двух), но для обучения так легче понять.