Задача на матрицу.Pascal., Помогите решить, пожалуйста. Опции

[lolbec]

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

Program Your_reality;
Var  A:array[1..3,1..4] of real;
i,j:byte;
S,Sr:real;
begin
For i:=1 to 3 do
For j:=1 to 4 do
read(A[i,j]);
For i:=1 to 3 do 
For j:=1 to 4 do
A[i,j]:=i;
S:=0;
For j:=1 to 4 do
S:=S+A[i,j];
Sr:=0;
Sr:=Sr+A[i,j];
Sr:=S/j;
For i:=1 to 3 do
For j:=1 to 4 do
write(A[i,j]:8:3);
Writeln;
end

Сообщение отредактировано: lolbec - 7.03.2018 4:18