Коста Михаил
S:00:00:00 00.00
R:00:00:00 00.00
program Project1;
type
Student = record
n: string[20];
f: string[20];
o: string[20];
ocenki: array[1..100] of integer;
dr: record
d: 1..31;
m: 1..12;
g: integer;
end;
end;
var
S: array[1..25] of Student;
J: array[1..100] of integer;
SZ: array[1..25] of real;
i,x,k,z,choice : integer;
f: text;
begin
write(*Kolvo studentov : *);
readln(x);
for i := 1 to x do
begin
//S[i].n:=* *;
write(*Ima *, i,* Studenta : *);
readln(S[i].n);
write(*Fam Studenta : *);
readln(S[i].f);
write(*Otch Studenta : *);
readln(S[i].o);
write(*d Studenta : *);
readln(S[i].dr.d);
write(*m Studenta : *);
readln(S[i].dr.m);
write(*g Studenta : *);
readln(S[i].dr.g);
end;
//S[i].ocenki[j]:=23
for i:=1 to x do
begin
z:=0;
write(*Kolvo ocenok studenta *,S[i].f, * *,S[i].n,* : *);
readln(J[i]);
k := J[i];
writeln(*Ocenki studenta *, S[i].f,* *,S[i].n, * : *);
for k:= 1 to k do
begin
write(k, * Ocenka : *);
readln(S[i].ocenki[k]);
z:=z+S[i].ocenki[k];
end;
SZ[i]:=z/k;
end;
writeln;
for i:=1 to x do
begin
write(S[i].n, * *, S[i].f, * *,S[i].o,*(*,S[i].dr.d,*.*,S[i].dr.m,*.*,S[i].dr.g,*)*);
writeln;
k:=J[i];
write(k, * ocenki : *);
for k:=1 to k do
begin
write(S[i].ocenki[k], * *);
end;
writeln(* | *,SZ[i]:3:2);
writeln;
end;
writeln;
writeln(*0-Vyiti*);
writeln(*1-Soxranit*);
writeln;
readln(choice);
case choice of
0: halt;
1:
begin
assign(f,*student.txt*);
rewrite(f);
for i:=1 to x do
begin
write(f, S[i].n, * *, S[i].f, * *,S[i].o,*(*,S[i].dr.d,*.*,S[i].dr.m,*.*,S[i].dr.g,*)*);
writeln(f);
k:=J[i];
write(f, k, * ocenki : *);
for k:=1 to k do
begin
write(f, S[i].ocenki[k], * *);
end;
writeln(f, * | *,SZ[i]:3:2);
writeln(f);
end;
close(f);
end;
end;
readln;
end.