давно
Старший Модератор
31795
6196
22.02.2016, 14:37
общий
это ответ
Здравствуйте, Посетитель - 399097!
Смотрите код:
[code lang=pascal h=200]const n=5;
var
a:array[1..n,1..n]of integer;
b,c,d,e,f:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(100);
write(a[b,c]:3);
end;
writeln;
end;
repeat
write('Enter K:=');
readln(d);
until d in [1..n];
for b:=1 to n-1 do
for c:=b+1 to n do
if a[b,d]>a[c,d]then
for e:=1 to n do
begin
f:=a[b,e];
a[b,e]:=a[c,e];
a[c,e]:=f;
end;
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.[/code]
Вопросы в минифоруме.
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.