Паскаль (fp) программирование

[katushkazolotce]

Здравствуйте, помогите решить задачу!( я в программировании не очень) Найти среднее арифметическое всех четных элементов матрицы расположенных ниже главой диагонали.(функция обязательно должна использоваться)
вот что у меня получилось только работает немного не так ... матрица не так задается..

program zadanie2;
uses crt;
const n=3;
type mas=array[1..n,1..n] of integer;
var a:mas;
    s,kol,i,j: integer;

function srednie(a:mas):real;
var
   i,j,s,kol:integer;
   sr:real;
       begin
   s:=0;
   kol:=0;
   for i:=1 to n do
   begin
      for j:=1 to n do

      if (i+j>n+1) then
      begin
       kol:=kol+1;
       s:=s+a[i,j];
      end;
   end;
   sr:=s/kol;

   srednie:=sr;
          end;
 begin
   clrscr;
   writeln('‚ВВедите элементы матрицы');
   for i:=1 to n do
   begin
    for j:=1 to n do
       begin
       
     write('a[',i,',',j,']=' ,' ');
         readln(a[i,j]);
       end;
   end;

   writeln('среднее арифметическое = ');
   writeln(srednie(a):6:3);

end.

[Niro]

Вопрос

if (i+j>n+1) then

Это вот это что ли проверка на условие

ниже главой диагонали

всех четных элементов матрицы

Где у вас эта проверка?

[katushkazolotce]

программка работает и все считает,но у меня матрица задается столбцом , а мне надо что бы 3 3 3 и считала правильно после этого(((((
3 3 3
3 3 3

[Niro]

а мне надо что бы 3 3 3....

в смысле? вы хотите чтобы при вводе матрицы элементы вводились на тех местах, на которых они должны стоять в двумерном массиве?

[katushkazolotce]

мне просто нужно решить мою задачу правильно что бы все считалось. потому что в том виде как я сделала препод не принимает( прошу помощи!!!!!!!!!!!!!!!!!

[Niro]

Так пойдёт?

uses crt;
   var m: array [1..3,1..3] of integer;
       i,j,k:integer;
       s:real;
BEGIN
   clrscr;
   for i:=1 to 3 do
      for j:=1 to 3 do
      read(m[i,j]);
   writeln('---------------------------------');
    for i:=1 to 3 do
      for j:=1 to 3 do
         begin
            if (i>j) and ( (m[i,j] mod 2)=0 ) then
                                         begin
                                            s:=s+m[i,j];
                                            k:=k+1;
                                         end;
         end;
   s:=s/k;
   writeln('sred arifmet = ',s:0:2);
   readkey;
END.

[HellchilD]

не очень хорошо помню паскаль, но попробуем:
1. условие "ниже главной диагонали" можно проверить очень просто:

if (j<i)

- (i=j - как раз главная диагональ)
2. проверка на четность:

if (a[i,j] mod 2=0)

и цикл должен выглядеть примерно так:

for i:=1 to n do
   begin
      for j:=1 to n do

      if ((j<i)&(a[i,j] mod 2=0)) then
      begin
       kol:=kol+1;
       s:=s+a[i,j];
      end;
   end;

Возможно, я немного напутал в синтаксисе в условии, но это уже не большая проблема