CitromonZ
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
program matrix_multiplication;
const
m=7;
n=5;
var
a:array[1..m];
b:array[1..n*(n+1)div2];
begin
randomize;
for i:=1 to m do
a[i]=5*random-3;
for i:=1 to n do
b[i]=6*random-4;
end;
k:=i(i-1)div2+j;
for i:=1 to m do
begin
if i>=о then k:=i*(i-1)div2+j;
{initialization matrix B}
k:=1;
for i:=1 to n*(n-1)div2 do begin
b[k]:=random(...);
k:=k+1; end;
{print matrix B}
k:=1;
for i:=1 to n do begin
for j:=1 to i do begin
write(b[k]:8);
k:=k+1; end;
writeln;
end;
|
Всего записей: 48 | Зарегистр. 02-08-2011 | Отправлено: 19:25 08-04-2012 | Исправлено: CitromonZ, 19:30 08-04-2012 |
|
