30.05.2008, 16:50
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Решение с пояснениями в приложении.
Приложение:
uses crt;const n=3;type Tmatr=array[1..n,1..n]of integer;{тип матрицы}var i,j:integer; a:Tmatr;Procedure Vvod(var mt:Tmatr);{процедура ввода}beginwriteln(‘Vvedite ‘,n*n,‘ chisel‘);for i:=1 to n dofor j:=1 to n doreadln(mt[i,j]); {вводим столбиком числа}clrscr; {очищаем экран}writeln(‘Matrica:‘); {выводим матрицу в виде таблицы}for i:=1 to n do begin for j:=1 to n do write(mt[i,j]:4); writeln; end;end;begin {начало программы}clrscr;Vvod(a); {вызов процедуры}readlnend.