program z6;
type
gur=record
fio:string;
gr:string[8];
gp:string[4];
kurs:integer;
grup:string;
ocen:array [1..6,1..15]of integer;
end;
var
gruppa:array[1..30] of gur;
count,z,kol,i,j:integer;
procedure input(var i:integer);
var
a,j,p:integer;
begin
Writeln('Vvedite FIO');
readln(gruppa[i].fio);
Writeln('Vvedite god rogdenija');
readln(gruppa[i].gr);
Writeln('Vvedite god postupleniya');
readln(gruppa[i].gr);
Writeln('Vvedite kurs');
readln(gruppa[i].kurs);
Writeln('Vvedite gruppu');
readln(gruppa[i].grup);
writeln('Za srolko kursov vvodite ocenki');
readln(j);
for a:=1 to j do
begin
Writeln('Kurs ',a);
for p:=1 to 15 do
begin
writeln('Predmet ',p);
write ('ocenka ');
readln(gruppa[i].ocen[a,p]);
end;
end;
end;
procedure print(var i:integer);
begin
{Vyvod najdennogo na ekran}
writeln(gruppa[i].fio);
end;
begin
writeln('vvedite kol-vo studentov');
readln(kol);
for z:=1 to kol do
input(z);
Writeln('Najdenye studenty');
for z:=1 to kol do
begin
count:=0;
for i:=1 to 6 do
for j:=1 to 15 do
if (gruppa[z].ocen[i,j]<=4) and (gruppa[z].ocen[i,j]<>0) then count:=count+1;
if count=1 then
print(z);
end
end.
|
