Процедуры

[eragon_ua]

Ребята, помогите одну задачку решить и одну исправить...

1. Вычислить среднеквадратическое значение положительных элементов массивов К1(9),К2(11),К3(13) и вывести их отдельно на экран.

Указания к выполнению:
Осуществить обмен данными с процедурой через параметры-значения и параметры-переменные. При одном обращении к процедуре передавать один элемент массива. Результаты работы распечатать в главной программе.

Вот нароботки :

Program Zavdan1;
 uses crt;
 var i:integer;
     sr:integer;
     
     K1:array  [1..9]  of integer;
     K2:array  [1..11] of integer;
     K2:array  [1..13] of integer;
     
         procedure work (j:integer,var sr:integer);
            begin
              if j>0 then sr:=
            end;
            
                 Begin
                 clrscr;
                 sr:=0;
 
                     writeln('vvedite 1 massiv');
                     for i:=1 to 9 do readln (K1[i]);
                       for i:=1 to 9 do begin
                     work(K1[i]),sr); end;
                     writeln('srednee kvadratichnoe=',sr:0:4);
                     
                     writeln('vvedite 2 massiv');
                     for i:=1 to 11 do readln (K2[i]);
                       for i:=1 to 11 do begin
                     work(K2[i]),sr); end;
                     writeln('srednee kvadratichnoe=',sr:0:4);
                     
                     writeln('vvedite 3 massiv');
                     for i:=1 to 13 do readln (K3[i]);
                       for i:=1 to 13 do begin
                     work(K3[i]),sr); end;
                     writeln('srednee kvadratichnoe=',sr:0:4);
readln;
end.

2. Для заданных действительных квадратных матриц X(4*4) и F(6,6) найти суммы и произведения элементов, расположенных ниже главной диагонали.

Указания к выполнению: Осуществить обмен данными с процедурой через параметры-значения, параметры-переменные и параметры-константы. При одном обращении к процедуре передавать весь массив. Результаты работы распечатать в процедуре.


Заранее благодарен.

[eragon_ua]

Никто не может помочь ?