Перемножение матриц

[fardik]

Задание такое: Перемножить матрицы А(NxM), B(MxL), N<=10, L<=15, M<=20.

[Unique_Maks]

любой поисковик выдаст уже готовую реализацию

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=103475

[fardik]

Спасибо большое! Еще один вопросик остался(
Clrscr , repeat, random(5)+1 - что делает эти команды?

[ZX Spectrum-128]

Очистка экрана
Цикл с постусловием
Случайное число (целое)

[fardik]

Попробовал вывести первую матрицу , помогите пожалуйста!!

var A,B,C:array [n..m,m..l] of integer;
n,m,i,j,q,r,k,h:integer;
S:integer;
begin
repeat
write('Vvedite kol-vo strok matrizs A:=');
readln(n);
if n<=10 do
until n in [n..m]
else writeln ('Ne ydovltv ycloviu n<=10');
repeat
write('Vvedite kol-vo stolbzov matrizs A:=');
readln(m);
if m<=20 do
until m in [n..m];
writeln('Matrits A:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:2,' ');
end;
writeln;
end;
end.

[ZX Spectrum-128]

Не будет работать, ошибка в 1-й строке. Не определены n,m,l.

[fardik]

как быть то тогда? что сделать? я не понимаю , как ещё задать..

[ZX Spectrum-128]

const
  n=10;
  m=20;
  l=15;

Это в самом начале программы.

[fardik]

Так у меня же есть условия на размерности...как я могу задать их константами?