uses
SysUtils;
var
d:array[1..100,1..100] of integer;
m,n,i,j,k:integer;
begin
write('Rasmernost: ');
readln(n,m);
randomize;
writeln('Ishodnyi masiv: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
d[i,j]:=random(99);
write(d[i,j]:4);
end;
writeln;
end;
writeln('Vvedite K: ');
readln(k);
if (k<1) or (k>n) then break else
begin
if k=i then writeln(d[i,1]);
end;
writeln; readln;
end.
ОПЕРАЦИИ С ЭЛЕМЕНТАМИ МАССИВОВ, Как расположить столбцы матрицы по возрастанию |