массив записей, поиск
Добавлено: 24 май 2009, 03:55
1. Имеются сведения об N студентах (N – заданное число): фамилия, символьный шифр группы и 4 экзаменационных оценки. Требуется определить наименьшую из средних экзаменационных оценок студентов, а затем для каждой группы получить пронумерованные списки студентов, имеющих такое же значение средней экзаменационной оценки, или выдать сообщение, что таких студентов нет.
Требуется помощь по исправлению. Заранее спасибо!
[*Удалено. См. правила раздела "Решите мне задачу"*]
Код: Выделить всё
Program student;
const
N=10;
K=4;
var
A:array[1..N] of string[15];
B:array[1..N] of integer;
C:array[1..N,1..4] of integer;
D:array[1..K] of integer;
i,j,m,x,Y,min:integer;
begin
for m:=1 to k do
writeln('vvesti shifr',m);
readln(D[m]);
for i:=1 to N do
begin
writeln('vvesti familiu',i);
readln(a);
writeln('vvesti shifr');
readln(B);
writeln('vvesti 4 ocenki');
for j:=1 to 4 do
begin
for i:=1 to N do
x:=C[i,j];
if x/4<min then min:=x/4
end;
writeln(min,'-srednya ocenka');
for m:=1 to k do
writeln('gruppa N',m,' shifr ',d[m]);
Y:=0;
for i:=1 to N do
begin
if b[m]=b then
begin
for j:=1 to 4 do
Y:=Y+C[i,j];
end;
if Y/4=min then writeln(a);
if Y:=0 then
writeln('net ocenok=',min);
end;
end.
[*Удалено. См. правила раздела "Решите мне задачу"*]