Паскаль

[hicmoon]

Нужно заменить в исходной матрице максимальный элемент 4-ого столбца на сумму, которую посчитали по формуле. Всё нашла, но заменить не выходит. Помогите дописать.

program lab3;
const
line=3;
column=4;
var
a: array[1..line, 1..column] of real;
i, j, x, y: integer;
max, s: real;
begin
writeln ('Введите элементы матрицы');
for i:=1 to line do
for j:=1 to column do
read (a[i, j]);
for i:=1 to line do begin
for j:=1 to column do
write (a[i, j], ' ');
writeln;
end;
for j:=4 to column do begin
max:=a[1, j];
for i:=1 to line do
if max<a[i, j] then begin
max:=a[i, j];
x:=i;
y:=j;
end;
writeln ('Максимальный элемент ', j, '-ого столбца = ', max, '. Номер ячейки = ', x, y);
end;
s:=0;
for i:=1 to line do begin
for j:=1 to column do begin
a[i, j]:=exp(1-a[i, j])+10;
if i=2 then s:=s+a[i, j];
end;
end;
write ('Сумма во второй строке по формуле = ',s:0:2);
end.

[ViktorR]

В следующем блоке либо надо спасти i для j=4, либо не делать цикла по колонкам:
Как пример:

for j:=4 to column do begin
max:=a[1, j];
for i:=1 to line do
if max<a[i, j] then begin
max:=a[i, j];
x:=i;
y:=j;
if j = 4 then x4 := i;
end;

...
a[x4,4] := s;

Не забыть добавить к описанию переменных: x4.


Как-то так, ...

[hicmoon]

Всё сделала, вывожу на экран a[i,j], но изменённой матрицы не получаю.