uses crt;
type Stud=record
Fam:String[20];
NZ:String[10];
Oc:array[1..4]of byte;
end;
var
Group:array[1..20]of Stud;tekStud:Stud;
sr:real;d,dv,i,c:byte;
begin
Writeln('Введите данные студентов');
for i:=1 to 20 do begin
writeln('Фамилия студента', i,':');readln(tekstud.Fam[i]);read;
writeln('Номер зачётки студента ',i,':');readln(tekstud.NZ[i]);
writeln('Оценки студента',i,':');for c:=1 to 4 do begin
read(tekstud.OC[c]);if tekstud.oc[c]=2 then d:=d+1;
sr:=sr+tekstud.oc[c];end;
if d>0 then dv:=dv+1;
end;
writeln('Средний балл группы:',sr/20:0:2);
writeln('Кол-во не сдавших сессию:',dv);
readkey;
end. Вот код:)
"Спасибо" принимается повышением репутации (Зелёный плюсик), спасибо:)
