14.01.2013, 16:53
|
#4 (permalink)
|
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Цитата:
Procedure SortDan;
const
m=6;
var s:boolean;
max,min,
x,
i,j,
i2,j2:integer; {Номера строк и столбцов}
k,k2:array[1..m,1..m] of integer;
begin
k2:k
for i:=1 to m do
begin
max:=k2[i,1];
min:=k2[i,1];
for j:=2 to m do
begin
if k2[i,j]>max then max:=k2[i,j];
if k2[i,j]<min then min:=k2[i,j];
end;
k2[i,1]:=(max+min) div 2;
end;
|
осталось только отсортировать. (в поисковике можешь вбить сортировка пузырьком)
если мне не изменяет память то как-то так:
Цитата:
program VR;
uses crt;
const
N=5;
var
a:array[1..N] of integer;
buf:integer;
j,i:integer;
begin
for i:=1 to N-1 do
read (a[i]);
readln(a[N]);
writeln('Sort...');
for i:=1 to N-1 do
begin
for j:=1 to N-1 do
begin
if a[j]>a[j+1] then
begin
buf:=a[j];
a[j]:=a[j+1];
a[j+1]:=buf;
end;
end;
for j:=1 to n do
write(a[j],' ');
writeln;
end;
end.
|
|
|
|