Представлений код - для розв’язку задачі сортування елементів масиву, який складається з 6 елементів, за зростанням. Завдання: змініть код таким чином, щоб сортування відбувалось за спаданням.
var
Form1: TForm1;
i:integer;
a: array [0..5] of integer=(4, 9, 2, 0, 1, 8);
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to 5 do
memo1.lines[i]:=inttostr(a[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var j, min, n, buf, imin : integer;
begin
n:=6;
for i := 0 to n-1 do
begin
min := a[i];
imin := i;
for j := i+1 to n do
begin
if a[j] < min then
begin
min := a[j];
imin := j;
end;
end;
buf:=a[i];
a[i]:=min;
a[imin] := buf;
end;
for i:= 1 to n do
Memo2.Lines[i] := IntToStr(a[i]);
end;
end.
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.
1) 0100100001100001011100000111000001111001001000000100001001101001011100100111010001101000011001000110000101111001001000000111010001101111001000000111100101101111011101010010000100100001
486170707920426972746864617920746f20796f752121
2) 010001000110111100100000011110010110111101110101001000000111001101110000011001010110000101101011001000000101001001110101011100110111001101101001011000010110111000111111
446f20796f7520737065616b205275737369616e3f
3) 010010000110111101110111001000000110000101110010011001010010000001111001011011110111010100100000011101000110111101100100011000010111100100111111
486f772061726520796f7520746f6461793f
4) 010100000110000101110011011100110111011101101111011100100110010000101110
50617373776f72642e