Организовать ввод 5-ти элементов массива сохраняя каждый компонент в соответствующей ячейке. Вывести сообщение когда ввод закончен. Упорядочить по убыванию и вывести эту последовательность по кмопоненту типа Label.


Эта прога точно работает.





var

Form1: TForm1; a: array [1..5] of integer;
i, c, j, d: integer;

implementation

procedure TForm1. FormCreate (Sender: TObject);
begin
i:=1
end;

Procedure TForm1. Button1Click (Sender: TObject);
begin
a[i]:= strtoint (edit1.Text);
edit1.Text:=' ';
i:=i+1;
if i=6 then label1. Caption:= 'ГОТОВО';
end;


Procedure TForm1. Button2Click (Sender: TObject);
begin
for i:=1 to 5 do <------------------- Зачем этот цикл? Как он работает?
begin
c:= a[i];
for j:=i+1 to 5 do <--------------- Зачем этот цикл? и что изменится если написать for j:=i+2 to 5 do???
if a[j]>c then
begin
c:= a[j];
d:=j;
end; <--------------------------- В конце цикла что будет хранится в c:= a[j] ??? и в d:=j??????
a[d]:= a[i];
a[i]:= c;
label1. caption:= label1.caption + ' ' + inttostr (a[i]);
end;
end;
end.
Помогите пожалуйста

Или хотябы обьсните как эта прога упорядочивает по убыванию? по каким критериям?

В FAQ-е все есть, или почти все... Методы сортировок

зы
В ПМ писать в подобных случаях не хорошо... и это... код возьми в теги...

!

Дублирование. Закрыто.