Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на матрицу.Pascal.

Автор: lolbec 8.03.2018 1:53

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

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