Версия для печати темы

Автор: mashka-promakashka 12.05.2009 18:46

program pr;

uses crt;

var i,f,k,p:integer;
Number:array[1..100] of integer;
Fam:array[1..15] of string;
DayIn:array[1..30] of integer;
DayOut:array[1..30] of integer;
Summ:array[1..10000] of integer;
ch:char;

begin
clrscr;

writeln('Vvedite kol-vo etagey gostinici');
readln(f);
writeln('Vvedite kol-vo nomerov na etage');
readln(k);
writeln('Vvedite stoimost progivaniya v sutki');
readln(p);

writeln('Vvedite dannie o prozhivayuschih, VIHOD - ESC:');
i:=0;
repeat
inc(i);
writeln('Vvedite nomer');
readln(Number[i]);
writeln('Vvedite familiyu');
readln(Fam[i]);
writeln('Vvedite den vezda');
readln(DayIn[i]);
writeln('Vvedite den diezda');
readln(DayOut[i]);

ch:=readkey;
until (ch=#27) or (i=f*k);

writeln('|Nomer|       Familiya|Vezd|Viezd|     Summa|');
writeln('_____________________________________________');
for i:=1 to f*k do
begin
Summ[i]:=(DayOut[i]+1-DayIn[i])*p;

if Number[i]<>0 then
begin
write('|',Number[i]:5,'|',Fam[i]:15,'|', DayIn[i]:4,'|');
write(DayOut[i]:5,'|', Summ[i]:10,'|');
writeln;

end;
end;
writeln('_____________________________________________');

repeat until Keypressed;
end. 

Помогите пожалуйста отсортировать табличку по массиву Summ от максимального к минимальному.

Автор: Ozzя 12.05.2009 19:10

Мария
Сортировок способов столько, что и не перечесть. Вы в FAQ заглядывали?

Автор: mashka-promakashka 12.05.2009 19:57

Заглядывала Просто помогите дописать программу чтобы список был отсортирован от максимальной суммы до минимальной