помогите написать программу по теме запись

[NeRo1996]

[Serge_Bliznykov]

что, как обычно, "помогите" означает "сделайте всё за меня" ?!

[Stilet]

Ну похоже на то. Дам автору толчок пожалуй:

type
 stu=record fio,predmet:String; ball,chas:integer; end;
const n=0;
var a:array[1..n] of stu; i:integer; predm:string; mbal,sreball,chasy:integer;
begin
 for i:=1 to n do begin
  write('Веди!'); readln(a[i].fio,a[i].predmet,a[i].ball,a[i].chas);
  {Выясняем предмет}
  if (i=1) or (a[i].ball>mbal) then begin mbal:=a[i].ball; predm:=a[i].predmet;end;
  {Средний балл}
  srebal:=srebal+a[i].ball;
  {Кол-во часов}
  chasy:=chasy+a[i].chas;
 end;
 writeln('предмет=',predmet,' средний балл=',sreball/n,' часы=',chasy); readln;
end.

[min@y™]

Ну похоже на то. Дам автору толчок пожалуй:

Школота совсем оборзела. Даже текст задачи переписать влом. Куда катится мир?
На такую постановку задачи надо отвечать адекватно.
Убери свой спойлер, я банкую!

[Stilet]

На такую постановку задачи надо отвечать адекватно.

Ну уж жвиняйте )
Я не мастер Пеинта, так крутить текстами не умею.

[min@y™]

Я не мастер Пеинта, так крутить текстами не умею.

Надо было напечатать, сфоткать на ойфон и выкласть.

[Stilet]

Ойфона не маемо. Село, чеж ты хочешь?

[Вадим Мошев]

хорошая тренировка мозга - читать коды в такой ориентации. но раз уж на то пошло, сделал бы анимацию, пусть листинги крутятся..

[sanji2010]

Могу помочь, но не бесплатно, если заинтересован, пиши в ЛС.