Помощь Паскаль
Всем здравствуйте. Нужна помощь. Суть задания заключается в том, что нужно создать матрицу С из А и В по условию. Но у меня получается пока ерунда какая-то. Вот, собственно, код
Program Matrix;
var
A:array[1..3,1..3] of real;
i,j:integer;
B:array[1..3,1..3] of real;
k,l:integer;
C:array[1..3,1..3] of real;
x,y:integer;
BEGIN
Writeln('Введите элемента матрицы А:');
for i:=1 to 3 do
for j:=1 to 3 do
Read(A[i,j]);
Writeln('Введите элемента матрицы B:');
for i:=1 to 3 do
for j:=1 to 3 do
Read(B[i,j]);
for i:=1 to 3 do
for j:=1 to 3 do
begin
if a[i,j]+2<b[i,j] then
c[a,j]:=a[i,j]+b[i,j]
else
c[i,j]:=a[i,j]-1/b[i,j];
end;
Writeln('Матрица C:');
for i:=1 to 3 do
begin
for j:=1 to 3 do
Write(C[i,j]:4:2,' ');
Writeln;
end;
END.
Буду признателен за помощь.
