Подскажите по Массивам

[-ushёl-]

Подскажите пожалуйста по Массивам!Задача:Задать матрицы a и b размера 5*5.Вычислить матрицу c=a-b и её след. PS Как произвести операцию разность над матрицами и результат забить в другую матрицу?? Вод "код":
program sled_matrix_C;
var
a:array[1..5,1..5]of integer;
b:array[1..5,1..5]of integer;
c:array[1..5,1..5]of longint;
i,j,sled:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(100);
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
b[i,j]:=random(100);
for i:=1 to 5 do
for j:=1 to 5 do
c[i,j]:=a[i,j]-b[i,j];{КАК ВЫЧЕСТЬ ИЗ ОДНОЙ МАТРИЦЫ ДРУГУЮ???}
for i:=1 to 5 do
sled:=sled+a[i,i];
writeln;
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
write(c[i,j]:3);
end;
writeln;
write(sled);
end.

[Sazary]

Так, в принципе, все верно. Только нужно sled проинициализировать перед использованием:

sled := 0;

{КАК ВЫЧЕСТЬ ИЗ ОДНОЙ МАТРИЦЫ ДРУГУЮ???}

Да так и вычитайте. Поэлементно.
И хорошо бы еще добавить вывод исходных матриц.

И randomize; нужно вызывать только один раз.

[-ushёl-]

низкай поклон!=) вот оно:
program sled_matrix_C;
var
a,b:array[1..5,1..5]of integer;
c:array[1..5,1..5]of longint;
i,j,sled:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(100);
for i:=1 to 5 do
for j:=1 to 5 do
b[i,j]:=random(10);
for i:=1 to 5 do
for j:=1 to 5 do
c[i,j]:=a[i,j]-b[i,j];
sled:=0;
for i:=1 to 5 do
sled:=sled+c[i,i];
writeln;
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
write(c[i,j]:3);
end;
writeln;
write('sled matrix=',sled);
writeln;
writeln('matrix',' ','a');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
write(a[i,j]:3);
end;
writeln;
writeln;
writeln('matrix',' ','b');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
write(b[i,j]:3);
end;
end.

[-ushёl-]

program sled_matrix_C;