Решите плизз 3 задачи

[PIPL]

1. Двумерный массив:
Найти максимальный элемент среди элементов, расположенных ниже побочной диагонали и минимальной среди элементов расположенных выше побочной диагонали. Матрице A[5,5].
2.Процедура
Дан массив A[10]. Найти сумму площадей кругов радиусы которых являются элементами массива А. Вычислите площади. Сделать в процедуре.
3.Из слова "операция" получить слово "правило"
Заранее спасибо)

[Esgal]

1

Код: Выделить всё

min:=a[1,1];
max:=a[5,5];

for i:=1 to 5 do
  for j:=1 to 5 do
    begin
      if (i+j)<6 and a[i,j]<min then min:=a[i,j];
      if (i+j)>6 and a[i,j]>max then max:=a[i,j];
    end;

2

Код: Выделить всё

procedure CircleSqr(r:real; var s:real);
begin
  s:=sqr(r)*pi;
end;

procedure CircleSqrSum(a:array[1..10] of real; var sa:real);
var i:1..10;
     s:real;
begin
  for i:=1 to 10 do
    begin
      CircleSqr(a[i],s);
      sa:=sa+s;
    end;
end;

3

Не понял что нужно сделать