Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program wefwe;
- uses crt;
- type
- peoples = record
- familiya: string;
- ocenka: byte;
- end;
- var
- e: array [1..50] of string;
- p: array [1..100] of peoples;
- o: array [1..50, 1..50] of integer;
- i,l,d,ex,ot,hor,yd,all:integer;
- begin
- write('Введите количество учеников: ');
- readln(d);
- write('Введите количество экзаменов: ');
- readln(ex);
- randomize;
- for i:=1 to d do
- begin
- write('Введите имя ', inttostr(i), ' ученика: ');
- readln(p[i].familiya);
- end;
- for i:=1 to d do
- begin
- p[i].ocenka:=0;
- for l:=1 to ex do
- begin
- with p[l] do
- begin
- e[i]:=('Экзамен ' + inttostr(i));
- write('Введите оценку за ', l, ' экзамен у ', p[i].familiya, ' : ');
- readln(o[i,l]);
- end;
- end;
- end;
- for i:=1 to d do
- begin
- write(p[i].familiya, ' Оценки за экзамены : ');
- for l:=1 to ex do
- begin
- with p[i] do
- begin
- write(o[i,l], ' | ');
- p[i].ocenka:=p[i].ocenka+o[i,l];
- end;
- end;
- writeln;
- p[i].ocenka:=Round(p[i].ocenka/ex);
- end;
- for i:=1 to d do
- begin
- for l:=1 to ex do
- begin
- all:=all+o[i,l];
- if o[i,l] = 5 then
- ot:=ot+1
- else if o[i,l] = 4 then
- hor:=hor+1
- else if o[i,l] = 3 then
- yd:=yd+1;
- end;
- end;
- writeln;
- writeln('Всего отличных оценок в группе: ', ot);
- writeln('Всего хороших оценок в группе: ', hor);
- writeln('Всего удовлетворительных оценок в группе: ', yd);
- writeln;
- writeln('Общий балл в группе: ', (all/(d*ex)):3:2);
- writeln;
- for i:=1 to d do
- writeln(p[i].familiya, ' итоговая оценка: ', p[i].ocenka);
- writeln;
- for i:=1 to d do
- begin
- if p[i].ocenka < 3 then
- writeln(p[i].familiya, ' кандидат на отчисление')
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement