ПОЖАЛУЙСТА ПОМОГИТЕ ПОСТРОИТЬ БЛОК-СХЕМУ ПО ПРОГРАММЕ:
program uspevaemost;
uses crt;
type mass=record
kurs: integer;
gr: string[5];
kol: integer;
usp: real;
pos: integer;
ruk: string[60];
end;
var spisok,spisok1: array [1..10] of mass;
i,j,imax,n: integer;
BEGIN
clrscr;
writeln ('Введите количесвто групп!');
readln (n);
clrscr;
for i:=1 to n do
begin
writeln ('Введите сведения o ',i,'-y группе');
writeln ('Введите номер курса!');
readln (spisok.kurs);
writeln ('Введите номер группы!');
readln (spisok.gr);
writeln ('Введите кол-во студентов!');
readln (spisok.kol);
writeln ('Введите успеваемость группы!');
readln (spisok.usp);
writeln ('Введите посещаемость группы в процентах!');
readln (spisok.pos);
writeln ('Введите ФИО классного руководителя!');
readln (spisok.ruk);
clrscr;
end;
writeln ('Ввод закончен нажмите пожалуйста ENTER');
readln;
clrscr;
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do
if spisok.usp>spisok[imax].usp then
imax:=j;
if imax<>i then
begin
spisok1:=spisok;
spisok:=spisok[imax];
spisok[imax]:=spisok1;
end;
end;
writeln ('Курс Группа Успеваемость');
for i:=1 to n do
writeln (' ',spisok.kurs,' ',spisok.gr,' ',spisok
.usp:0:2);
readln;
END.
Программа для построения БЛОК-СХЕМ!!!
Спасибо огромное)