Скачать программы Все программы автораЗадание №4Ведомость студентов содержит порядковый номер, фамилию и графу о сдаче зачета. Отсортировать не сдавших зачет и вывести их фамилии в алфавитном порядке. uses crt; Type Stud=record Num:integer; Name:string[15]; zach:boolean; end; Var i,n,m:integer; z:char; a:array[1..250] of stud; st:stud; Begin writeln('Введите количество студентов'); readln(m); for i:=i to m do begin writeln('Введите номер студента'); readln(a[i].Num); writeln('Введите фамилию студента'); readln(a[i].Name); writeln('Введите зачет,незачет (- или +'); readln(z); if z='-' then a[i].zach:=false; if z='+' then a[i].zach:=true; end; for i:=1 to m-i do for n:=i+1 to m do if a[i] .Name > a[ n].Name then begin st:=a[i]; a[i]:=a[n]; a[n]:=st; end; writeln('Не сдали зачет'); for i:=1 to m do if not(a[i].zach) then writeln ('Номер ',a[i].Num, ' Фамилия ', a[i].Name); end. |