Здравствуйте, Петров Игорь Ильич!
Решение задачи с небольшими пояснениями в приложении.

Приложение:
uses crt;var m,n,k,i,j,p,x:integer; a:array[1..50,1..50]of integer; label 1; {метка}beginclrscr;write('Vvedite kolichestvo strok m=');readln(m);write('Vvedite kolichestvo stolbcov n=');readln(n);writeln('vvedite chislo 1<=k<=m');1:write('k=');readln(k);if (k<1)or(k>m)then {проверяем к} begin writeln('Nedopustimoe znachenie k'); readln; goto 1; end;randomize;writeln('Ishodnaja matrica:');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;readln;{sortirovka po vozrastaaniu v k stroke}for j:=1 to n-1 dofor p:=1 to n-1 doif a[k,p]>a[k,p+1] then {по возрастанию в строке к} begin for i:=1 to m do begin x:=a[i,p]; a[i,p]:=a[i,p+1]; {переставляем во всех строках} a[i,p+1]:=x end end;{vyvod obrabotannoj matrichy}writeln('Rezultat:');for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln end;readlnend.

Консультировал: puporev (Профессионал) Дата отправки: 14.05.2008, 15:35

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »