Двумерный массив

[Анастасия18]

Добрый день! Помогите пожалуйста разобраться с задачей: Составьте функцию для вычисления среднего арифметического значения элементов главной диагонали квадратной матрицы. Используя эту функцию для двух заданных матриц А и В, выведите первую строку матрицы, если среднее арифметическое значение элементов ее главной диагонали положительно. В противном случае выведите сообщение «Условие невыполнено».

Program lab3;
Uses crt;
Var i, j, a, n:byte;
     sr:real;
     mas:array [1..100,1..100] of shortint;

Function Mass(x:byte):real;
var i, j, k:byte;
     s:real;
     mas:array [1..100,1..100] of shortint;
Begin
   s:=0;
for i:=1 to x do
for j:=1 to x do
begin
readln (mas[i,j]);
if i=j then begin
   s:=s+mas[i,j];
   k:=k+1;
end
       else begin
end;
end;
   s:=s/k;
Mass:=s;
End;

BEGIN
clrscr;
for a:=1 to 2 do
begin
write ('Введите размер массива n=');
readln (n);
   sr:=Mass(n);
if sr>0 then begin
for i:=1 to 1 do
for j:=1 to n do
begin
writeln (mas[i,j]);
end;
end
         else writeln ('Условие не выполнено');
end;
readln;
END.

Все элементы первой строки он заменяет нулями и выводит их(

[phomm]

writeln(mas[i,j]) обращается к Глобально объявленному mas, а функция mass работает с локально объявленным у себя массивом mas, поэтому у вас и косяки.. уберите в функции mass объявление mas:array [1..100,1..100] of shortint;

[Анастасия18]

Большое спасибо! Все работает)