нужно выполнить сортировку студентов,что бы выводились по алфавиту,Помогите не понимаю(
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
| program laba6a;
type
studs = record
name: string[25];
k,o: integer;
w:string;
end;
var
arr_studs: array[1..15] of studs;
sum: integer;
a: real;
i,n: byte;
begin
write('Количество студентов: ');
readln(n);
sum := 0;
for i:=1 to n do
with arr_studs[i] do begin
write(i,'-й студент: ');
readln(name);
write('курс:');
readln(k);
write(' Оценка: ');
readln(o);
sum := sum + o;
end;
a:= sum / n;
writeln;
writeln('Студенты с оценкой выше средней:');
for i:=1 to n do
if arr_studs[i].o > a then
writeln(arr_studs[i].name);
readln
end.
[size="1"][color="grey"][I]Добавлено через 4 часа 5 минут[/I][/color][/size]
сама додумалась
program laba6a;
type
studs = record
name: string[25];
k,o: integer;
w:string;
end;
var
arr_studs: array[1..15] of studs;
sum,j, max, max1, i: integer;
a: real;
n: byte;
begin
write('Количество студентов: ');
readln(n);
sum := 0;
for i:=1 to n do
with arr_studs[i] do begin
write(i,'-й студент: ');
readln(name);
write('курс:');
readln(k);
write(' Оценка: ');
readln(o);
sum := sum + o;
end;
a:= sum / n;
writeln;
writeln('Студенты с оценкой выше средней:');
for i:=1 to n do
if arr_studs[i].o > a then
writeln(arr_studs[i].name);
readln;
begin
j:=N;
while j > 1 do begin
max := arr_studs[1].k;
max1 := 1;
for i := 2 to j do
if arr_studs[i].k > max then begin
max := arr_studs[i].k;
max1:= i
end;
arr_studs[max1].k :=arr_studs[j].k
;
arr_studs[j].k := max;
j := j - 1
end;
for i := 1 to N do
writeln( arr_studs[i].k:4);
readln;
end;
end. |
|
(
