создание процедур

@Romchi · Регистрация: 24.10.2010

Студворк — интернет-сервис помощи студентам

В квадратной матрице размером 5х5, заполненной случайными целыми числами из диапазона (-45,+45) в сек*торах 1 и 3 найти количество положительных элементов. Сектор включает диагональные элементы.
он мне выделяем строчку"CEKTORA (a,k1,k2);" и пишет неверное количество фактических параметров"
что нужно сделать?помогите пожайлуста

Pascal

 program matric;
 const n=5;
 type tarr=array[1..100,1..100] of integer;
 var a:tarr;
       y,x, m, k1, k2, i, j,n1: integer;
                  procedure CEKTORA(a:tarr; n1:integer);
                  var i,j:integer;
                  begin
                  k1:=0;
                  for i:=1 to n do
                  begin
                  For j:=1 to n do
                     if(j>=i) and  ((i+j)<=(n+1)) and  (a[i,j]>0) then
                     if  a[i,j]>0 then k1:=k1+1;
                  end;
                    begin
                    k2:=0;
                    for j:=1 to n do
                       if(j<=i) and ((i+j)>=(n+1))and  (a[i,j]>0) then
                       if a[i,j]>0 then k2:=k2+1;
                  end;
                  writeln('в первом= ',k1,' в третьем= ',k2);
                   end;
                   Procedure BBOD(var a:tarr);
                      var i,j:integer;
                      begin
                      for i:=1 to n do
     For j:=1 to n do
     begin
     a[i,j]:=random(91)-45;
     end;
     end;
     procedure BblBOD(a:tarr);
     var i,j:integer;
       begin
     for i:=1 to n do
     begin
     For j:=1 to n do
     write(a[i,j]:4, ' ');
     writeln;
     end;
     end;
        begin
BBOD(a);
BblBOD(a);
CEKTORA (a,k1,k2);
end.

Опции темы