Найти среднее арифметическое элементов в первом столбце в двумерном массиве. Паскаль

Question

Найти среднее арифметическое элементов в первом столбце в двумерном массиве. Паскаль

Answer 1

const n=3;

var 
i, j, s, k: integer; 
sa: real; 
a: array [1..n, 1..n] of integer;

begin 
writeln('Ввод элементов матрицы'); 
for i := 1 to n do   
for j := 1 to n do   
begin     
write('a[', i, ',', j, ']=');     
readln(a[i, j]);   
end; 
s := 0;k := 0; 
for i := 1 to n do   
for j := 1 to 1 do   
begin     
s := s + a[i, j];     
k := k + 1;   
end; 
sa := s / k; 
writeln('Среднее арифметическое элементов матрицы = ', sa:2:2);
end.