Код:
1.program AB;
2.const NMax = 10;{можно увеличить}
3.type Matrix = array [1..NMax, 1..NMax] of Real;
4.procedure MulMatrix(var a, b, c: Matrix; n: Integer);
5.var i, j, k: Integer;
6. s: Real;
7.begin
8. for i := 1 to n do
9. for j := 1 to n do
10. begin
11. s := 0;
12. for k := 1 to n do
13. s := s + a[i, k]*b[k, j];
14. c[i, j] := s
15. end
16.end;
17.var a, b, c: Matrix;
18. i, j, n: Integer;
19.begin
20. WriteLn('Введите порядок матрицы');
21. Write('n = '); ReadLn(n);
22. WriteLn('Введите первую матрицу');
23. for i := 1 to n do
24. for j := 1 to n do
25. Read(a[i, j]);
26. WriteLn('Введите вторую матрицу');
27. for i := 1 to n do
28. for j := 1 to n do
29. Read(b[i, j]);
30. MulMatrix(a, b, c, n);
31. for i := 1 to n do
32. begin
33. for j := 1 to n do
34. Write(c[i, j]:0:6, ' ');
35. WriteLn
36. end;
37. ReadLn
38.end.
Благодарю за помощь) А можно по подробнее разобрать цикл с 4-15строчки, почему вконце 14 и 15й строчек не ставится ";" ? Почему так записали 31-33ю строчки, почему begin между? И еще непонятно значение строчек 35,37...
