Условие: Задана квадратная матрица А размером N х N (N<==10), состоящая из действительных элементов.Найти среднее арифметическое элементов каждой из четных строк матри-цы.
Набросала код:
program LABA_11;
var
N,i,j:integer;
A:array[1..10,1..10] of real;
Sum,Sr:real;
begin
{Ввод размерности}
write('Введите размерность массива N = ');
readln(N);
{Ввод значений элементов матрицы}
for i:=1 to N do
for j:=1 to N do
begin write('A[',i,',',j,']',' = ');
readln(A[i,j]);
end;
{Вывод исходной матрицы}
for i:=1 to N do
for j:=1 to N do
writeln(A[i,j]:2:2); readln;
{Вычисление, вывод среднего арифметического}
for i:=1 to N do
Sum:=0;
begin if (i mod 2)=0 then
begin for j:=1 to N do
Sum:=Sum+A[i,j];
j:=j+1;
Sr:=Sum/N;
end;
writeln('Среднее арифметическое ',i,'-ой строки ->',Sr:2:2);
i:=i+1
end;
readln;
end.
Проблемы:
1. Каким макаром вывести среднее арифметическое каждой из строк? В моем коде получается только для последней, причем, если N - четное число... :-(
2. Как вывести исходную матрицу так, чтобы было более наглядно - квадратиком? ;-)
3. И последний вопрос: вечная проблема с процедурами :-( каждое действие необходимо оформить процедурой:
Процедура ввода размерности матрицы.
Процедура ввода элементов матрицы.
Процедура вывода элементов исходной матрицы.
Процедура вычисления.
Процедура вывода результатов.
...а я по жизни путаюсь с формальными/фактическими параметрами :-(
Помогите, пожалуйста!