procedure TForm1.Button1Click(Sender: TObject);
var
n, i, j, k, s: integer;
spisok1, spisok2: array[1..50] of string;
fam, fam2: string;
begin
Memo2.Clear;
n:=Memo1.Lines.Count;

for i:=1 to n do
spisok1[i]:=Memo1.Lines[i-1];

for i:=1 to n do
begin
k:=1;
fam:=spisok1[1];
for j:=2 to n-i+1 do
begin
fam2:=spisok1[j];
if fam2[1]<fam[1] then begin fam:=fam2; k:=j; end;
if fam2[1]=fam[1] then if fam2[2]<fam[2] then begin fam:=fam2; k:=j; end;
if fam2[1]=fam[1] then if fam2[2]=fam[2] then if fam2[3]<fam[3] then begin fam:=fam2; k:=j; end;
end;

spisok2[i]:=spisok1[k];
for s:=k to n-1 do
spisok1[s]:=spisok1[s+1];
Memo2.Lines.Add(spisok2[i]);
end;

end;

Программу написал в Delphi, ТР нет под рукой. Ирина, просьба немного переработать самой. Вместо компонентов memo1,2 осуществи обычный ввод/вывод массива типа string. Все остальное без изменений.

Программу прикрепил, можно скачать и поиграть немного.

Программу №2 недавно объяснял пользователю Fanstar77. Напишите ему в личку, пусть он выложит.

По идее все задания из того же сборника, который и у нас был. Сборник в принципе неплохой, задания разноплановые. Основное его предназначение - научить студентов размышлять аналитически, разрабатывать алгоритмы.

Добавлено (29.03.2009, 20:21)
---------------------------------------------
через процедуру

Я, конечно, понимаю, что краткость - сестра таланта, но из данного поста даже не вполне ясна суть вопроса! Такое впечатление, что автор очень торопился и не захотел потратить чуть больше времени, чтобы нормально сформулировать задачу и представить свои (пусть неправильные) наработки. В следующий раз ответы на вопросы, поставленные таким образом, даваться НЕ БУДУТ!

По поводу самой задачи: она - элементарная, подобные примеры уже несколько раз обсуждались в этой ветке.

Program conv;
type
mass=array[1..10] of real;
var
c, p: mass;
i: integer;
procedure c_to_p(var x,y: mass);
var
i: integer;
begin
y[1]:=x[1];
for i:=2 to 10 do
y[i]:=y[i-1]+x[i];
end;

begin
for i:=1 to 10 do
readln(c[i]);

c_to_p(c,p);

for i:=1 to 10 do
writeln(p[i]:9:0);

readln;
end.

Добавлено (21.10.2009, 20:45)
---------------------------------------------
отпишись или оставь номер аси или телефона!

Добавлено (21.10.2009, 20:46)
---------------------------------------------
моя ася 474369822

Добавлено (21.10.2009, 20:56)
---------------------------------------------
если что-то надо пиши в асю