Ввод элементов матрицы

Ввод массива производится с помощью цикла с параметром 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;