ЗАДАЧА НА ЗАПИСИ!!!упорядочить массив по среднему баллу.

[natik3]

Создать массив из 20 элементов,хранящих информацию о студенках факультета.Каждый элемент содержит фамилию,курс,форму обучения,(специалист,бакалавр,магис тр)и оценки по 5 предметам за последнюю сессию.
Упорядочить массив по среднему баллу.Осуществить перевод студентов на следующий курс.Переводятся студенты ,не имеющие задолжностей за последнюю сессию,студенты 5-ого курса(специалисты) и 6-ого курса(магистры)должны быть удалены ,как окончившие курс обучения.

Решить задачу в Delphi.C помощью процедур и функций.Помогите разобраться...нужно сначало создать запись,потом сортировать,потом процедура перевода на другой курс,там в цикле до 6 или 5 курса проверка,подфункция на проверку двоечников,если они есть удаляем их,если 5 или 6 курс тоже удаляем.я начала.подскажите правильно ли.и как дальше?

program str155n10;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 windows;

const n=20;
type
 Tsession = array[1..20,1..5] of record //Сведения об экзаменах
 name: string[10]; //название экзамена
 mark: 1..5; //оценка
 end;
 student = record // Сведения о студенте
 FIO: string[40]; // фамилия, имя, отчество
 curs: 1..6; // курс
 results: Tsession; // сведения об экзаменах
 form:string; // форма обучения
 end;
 TFile=array [1..n] student; // файловая переменная, содержащая сведения о студентах
var k:integer;
 fname: string;
 a:TFile;
 sr: real;
//--
procedure vvoddannuh(var a:TFile); //ввод данных
var i:Integer;
begin
 for i:=1 to n do
 begin
 Writeln('введи ФИО');
 Readln(a[i].FIO);
 Writeln('введи курс');
 Readln(a[i].curs);
 Writeln('введи форму обучения');
 Readln(a[i].form);
 Writeln('введи оценки за последнюю сессию');
 Readln(a[i].results);
 writeln;
 end
end;
Procedure vuvoddannuh(a:TFile); //вывод данных
var i:Integer;
begin
 writeln ('--------------------------------------------------------------------------');
 writeln (' ФИО / курс / форма обучения / оценки за последнюю сессию ');
 writeln ('--------------------------------------------------------------------------');
 for i:=1 to n do
 writeln(a[i].curs:15,' ',a[i].FIO:15,' ',a[i].form:5,' ',a[i].ball:15);
end;
//------------------------------------------------------------------------------------------
 procedure Perevod( a:TFile);
 var i:Integer;
 i:=1;k:=0;
 while i<=n-k
 Function Dvoechniki(a:TFile);
 var i:integer;
 begin
 write('Оценки за последнюю сессию ');
 readln(results);
 for i:=1 to n do
 if a[i].results < 3 then

 delete(a, i, 1)
 k:=k+1;
 end;

[Serge_Bliznykov]

Это что, шутка такая?!

Ваши темы на форуме (открытые, кстати!) в порядке создания тем:

Необходимо выяснить сколько студентов группы имеют средний балл, наименее всего отклоняющийся по абсолютному значению от среднего

Задали задачу.а тему не объяснили.даже представления не имею как это делать.Создать и упорядочить массив по среднему баллу.

Упорядочить массив по среднему баллу.


МОЖЕТ ХВАТИТ УЖЕ!?!?

Вы знаете, что Вы нарушаете правила форума?

Кросспостинг (создание одинаковых тем и сообщений) запрещён правилами форума!

Модератор