Разбор решений, Для тех, кто сечет в ПАСКАЛЕ Опции

[Kshishtov]

Народ, кто понимает турбопаскаль помогите пожалуйста.3 задачи дебильных задали, а я в нем ни в зуб ногой..
Есть тут такие,кто сможет решить?Отпишитесь,чтобы зря сюда не выкладывал..

[Bourn]

program Project1;

var
a: array[1..3,1..3] of real;
b: array[1..3,1..3] of real;
c: array[1..3,1..3] of real;
p:real;
i,j,k:integer;
begin
writeln('Input matrix A(3,3)');
for i:=1 to 3 do
for j:=1 to 3 do begin
read(a[i,j]);
end;


writeln('Input matrix B(3,3)');
for i:=1 to 3 do
for j:=1 to 3 do begin
read(b[i,j]);
if (b[i,j]>0) then
end;


for i:=1 to 3 do
for j:=1 to 3 do begin
p:=1;
for k:=1 to 3 do p:=p*b[i][k];
c[i][j]:=a[i][j]+p;
end;

writeln('Output matrix C(3,3)');
for i:=1 to 3 do
for j:=1 to 3 do begin
if (j<3) then write(c[i,j]) else writeln(c[i,j]);
end;
read(i);

end.

Добавлено ([mergetime]1135919371[/mergetime]):
я не совсем понял условие 3й задачи, поэтому мог написать не правильно,
поэтому возьми 2 свои матрицы произведи над ними вычисления, в результате получив третью, и кинь сдесь, если же ты конечно же понал сам задание...

Добавлено ([mergetime]1135919673[/mergetime]):
может тему переименовать в "Разбор решений"?

[Чёртос-2 (Chorto...]

может тему переименовать в "Разбор решений"?

Готово.