Ввод элементов матрицы
Ввод массива производится с помощью цикла с параметром for. Каждый элемент выводится на экран сразу после присвоения ему значения. Каждый раз после окончания вложенного цикла элементы начинают выводиться с новой строки с помощью оператора Writeln:
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i mod 2)=1 then
a[i,j]:=-1*(1/2+3*j)*exp(ln(2)*i)
else a[i,j]:=(1/2+3*j)*exp(ln(2)*i);
write(a[i,j]:7:1,' ');
end;
writeln;
end;
Создание одномерного массива Х
Элемент массива Х получает свое значение только после окончания вложенного цикла. Чтобы при начале следующего цикла значение переменной k содержало верное значение, ее необходимо обнулить после записи значения в x[i].
for i:=1 to n do
begin
for j:=1 to n do
k:=k+sin(a[i,j]*a[n-j+1,i]);
x[i]:=k;