25.12.2009, 18:46
общий
это ответ
Здравствуйте, Темик.
В приложении. Комментариев не пишу -- всё очевидно. Если что -- спрашивай.
Приложение:
const
m=9;
n=4;
type
matr=array[1..m,1..n] of real;
var
a:matr;
i,j:integer;
begin
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random;
writeln('Element i=7 j=2:');
writeln(a[7,2]:0:3);
writeln('Stroka i=7:');
for j:=1 to n do
write(a[7,j]:0:3,' ');
writeln;
writeln('Stolbets j=2:');
for i:=1 to m do
writeln(a[i,2]:0:3);
writeln;
readln;
end.