[Fantomas_RUS]

Сообщение от Неопытный

Ребята пожалуйста у кого есть какие соображения на счет этой программы, а то я все команды забыл((:
Создать массив записей А(n), где n<=20, содержащий сведения: фамилии, три оценки на экзаменах. Используя процедуру, определить студентов, успевающий на 5, и упорядочить их массив по алфавиту. В основной программе полученный массив вывести на экран.



По-моему это бред?


и почему прога дает ошибку на uses,type не чего не понимаю(((((((
если что-то типо такого:

У меня работает

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 type data=record
 fio:string;
 num:integer;
 end;
 var stud: array [1..20] of data;
 tmp:data;
 i,n,x:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
// ClrScr;
 write ('Kol-vo studentov: '); readln (n);
 for i:=1 to n do
 begin
 writeln('Ñòóäåíò #',i);
 write ('Ôàìèëèÿ: '); readln (stud[i].fio);
 write ('Îöåíêà: '); readln (stud[i].num);
// ClrScr;
 end;
 for i:=1 to n do
 writeln (stud[i].fio, stud[i].num:5);
 write ('Ââåäèòå èñêîìóþ îöåíêó : '); readln (x);
// ClrSCr;
 Writeln ('Ñòóäåíòû ïîëó÷èâøèå ',x);
 for i:=1 to 20 do
 if stud[i].num=x then writeln (stud[i].fio);
 readln
 end.
end.