k=b(1,i) f=b(2,i) c=b(3,i) p=(k+f+c)/3

q(i)=p pol(I)=I p=0

n=1,50

I=1,49

Нет C=q(I+1) q(i)=q(I+1) q(i)=c

q(i)<q(I+1) да c=pol(I+1) pol(I+1)=pol(i) pol(I)=c

вывод отсортированных данных на

экран и в файл

I=1,50

нет да вывод A$

B(1,i)=5

I=1,50

нет

B(2,i)=5 да вывод A$

I=1,50

нет да вывод A$

B(3,i)=5

конец

ТЕКСТ ПРОГРАММЫ

Программа для ввода информации:

1 open "fpd.fpd" for output as#1

2 data "Ахтямов Р.Р ","Барашев А.Г. ","Бояркин М.Л ","Брыкин А.О. "

3 data "Брюхавецкая Л.В. ","Бугаев А.О. ","Гринблат Ю.И. ","Дедух Л.В. "

4 data "Дербеденев П.А. ","Дружинин К.В. ","Дьяченко Т.С. ","Ермакова Н.В. "