10.01.2010, 13:35
общий
это ответ
Здравствуйте, Елена Николаевна!
Судя по условию, это 2 разные задачи. Решение в приложении.
Приложение:
1.
uses crt;
const m=7;{размеры матрицы}
n=4;
var a:array[1..m,1..n] of integer;{тип матрицы-целые числа}
i,j,k:byte;
begin
clrscr;
randomize;{генерация псевдослучайных чисел}
writeln('Исходная матрица:');
for k:=1 to m do
begin
for j:=1 to n do
begin
a[k,j]:=random(20);{заполним матрицу случайными числами от 0 до 19}
write(a[k,j]:4);{выведем построчно на экран}
end;
writeln;{переход на новую строку}
end;
repeat
write('Введите номер строки от 1 до ',m,' i=');
readln(i);
until i in [1..m];{проверяем чтоб номер строки был в диапазоне}
writeln('Строка ',i);
for k:=1 to n do
write(a[i,k]:4);{выводим строку}
readln
end.
2.
uses crt;
const nmax=20;{максимальный размер матрицы, можете поменять}
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,k:byte;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
repeat
write('Введите координаты элемента:');
readln(i,j);
until(i in [1..m])and(j in [1..n]);
writeln('Элемент [',i,',',j,']=',a[i,j]);
repeat
write('Введите номер строки от 1 до ',m,' i=');
readln(i);
until i in [1..m];
writeln('Строка ',i);
for k:=1 to n do
write(a[i,k]:4);
writeln;
repeat
write('Введите номер столбца от 1 до ',n,' j=');
readln(j);
until j in [1..n];
writeln('Столбец ',j);
for k:=1 to m do
write(a[k,j]:4);
readln
end.