Паскаль простинько

[wandersex]

Плиз помогите сделать(
Мне по самому простому плиз вилы ваще( завтра сдавать( лижбы работало.

В файле хранится информация о студентах: фамилия, имя, номер группы и отметки, полученные в последнюю сессию. В новый (текстовый) фаил переписать информацию о студентах, каму будет назначен "исправительный срок" (одна или две неудволитворительные оценки).

[ex.cluz]

Либо ваши наработки предъявляйте, либо вам дорога в раздел "фриланс".

[DoDge_VipeR]

сделаю за деньги! обращайтесь!

[wandersex]

uses
crt;
type
stud=record
kurs:1..4;
fam,name,numgr:string[10];
bal:array[1..4] of 61..100;
sb:real;
end;
var
mas:array[1..20] of stud;
i,j,s,kus:integer;
pr:real;
begin
for i:=1 to 20 do with mas[i] do begin
s:=0;
write ('vvedite familiyu, imya i nomer gruppy:');
readln (fam, name,numgr);
write ('vvedite 4 bala');
for j:=1 to 4 do begin
readln (bal[j]);
s:=s+bal[j];
end;
sb:=s/4;
writeln ('srednij bal=',sb:3:2);
end;
kus:=0;
for i:=1 to 20 do with mas[i] do if sb>=4 then kus:=kus+1;
writeln ('kol-vo uspevayuwih studentov=',kus);
pr:=kus/20*100;
writeln ('procent=',pr:5:2,'%');
readln;
end.

[wandersex]

Это как пример, друг делал, тут надо процедуры добавить ток он мне так сказал.

[wandersex]

народ ну ктонить(

[Iceman]

На одного халтурщика- програмиста завтро станет меньше бвухаха.

[Александр А.А.]

Вот пример похожих задач на записи в Паскаль. Может что пригодится.