Массивы записей

[Юляшко]

Соревнования фигуристов. Ввести данные, содержащие фамилию фигуриста, страну, и оценку за обязательные выступления и за произвольную программу. Вычислить суммарную оценку. Найти победителя.

[Hacker19_90]

А вопрос в чём? Как сделать массив записей?

[Hacker19_90]

http://programmersforum.ru/showthread.php?t=53505
вот тут я лабы свои выкладывал скачай, посмотри

[mifomen]

PHP код:

program figurist;
uses crt;
type
  fig=record
   fio,strana:string;
   o1,o2,obsha:integer;
  end;
var a:array [1..20] of fig;
    km,max,i,n:integer;
begin clrscr;
repeat write(' Kol-Vo Figuristov ');
{$i-} repeat readln(n);
until IOResult=0 {$i+}until (n>0) and (n<20);
for i:=1 to n do begin
write('Vvedite FIO '); readln(a[i].fio);
write('Vvedite stranu '); readln(a[i].strana);
write('1-ya ocenka '); readln(a[i].o1);
write('2-ya ocenka '); readln(a[i].o2);
a[i].obsha:=a[i].o1+a[i].o2; {Podstavish nuznuy formulu}
end; clrscr;
writeln('Vi vveli ');
for i:=1 to n do
writeln(a[i].fio,' ',a[i].strana,' ',a[i].o1,' ',a[i].o2,' Ob,ocenka ',a[i].obsha);
 max:=a[1].obsha;
 for i:=2 to n do
  if max<a[i].obsha then km:=i;

  writeln('Chempion ');
writeln(a[km].fio,' ',a[km].strana,' ',a[km].o1,' ',a[km].o2,' Ob,ocenka ',a[km].obsha);

readkey;
end. 


[Юляшко]

спасибо..все работает!