Составить программу назначения стипендии студентам по результатам сессии, используя следующие правила:
1) если все оценки 5, назначается повышенная стипендия;
2) если оценки 4 и 5, назначается обычная стипендия;
3) если есть оценка 3, стипендия не назначается.
В результате работы программы должен быть напечатан список группы с оценками и средним баллом каждого студента и два списка фамилий (назначенных на повышенную и обычную стипендию).
Вот мой ключ:помогите пожалуйста найдите ошибки !
Type student=record
Fam:string [20]; name:string [15]; data:record
Marks_1:1..5; marks_2:1..5; marks_3:1..5;
End;
Spec:string[10]; end;
Var i:integer;
A:student; a:m;
Fin,fout:text;
Begin
Assign (fin,’st.pas’);reset(fin);
I:=0 ; repeat inc(i) with a do readln(fin,’st.pas’); until eof(fin);
Close(fin); end;
Var m:a;
Begin assign(fin,’st.pas’); reset(fin); writeln(‘n=’);
I:=0; for i:=1 to n do
((marks_1.data+marks_2.data+marks_3.data)/3):=m[i];
For i:=1 to n do begin writeln(m[i]); end;
Close(fin);
Begin assign(fout,’gmu.pas’); rewrite(fout);
Procedure stepuha (var a:student; var i:integer);
Var I,j:integer; var s,q,m:array[1..100] of integer;
Begin
For j:=1 to I do
If m[i]=5 then m[i]:=q;
If m[i]=4 then m[i]:=s;
End;
For j:=1 to I do begin writlen(q); writlen(s); end;
Close(fout); end.