ropr6tst.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 52 行

program pr6;
type informatii=record
     nume:string[50];
     inaltime:byte;
     greutate:byte;
     end;
var n,i,p,s,a,b,r:integer;
    v:array[1..100] of informatii;
    aux:informatii;
    ok:boolean;
begin
write('n=');readln(n);
for i:=1 to n do
 with v[i] do begin
              write('numele');readln(nume);
              write('inaltimea');readln(inaltime);
              write('greutatea');readln(greutate);
              end;
repeat
ok:=true;
for i:=1 to n-1 do
 if v[i].inaltime<v[i+1].inaltime then begin
                                       aux:=v[i];
                                       v[i]:=v[i+1];
                                       v[i+1]:=aux;
                                       ok:=false;
                                       end;
 if v[i].inaltime=v[i+1].inaltime then
    if v[i].greutate<v[i+1].greutate then begin
                                          aux:=v[i];
                                          v[i]:=v[i+1];
                                          v[i+1]:=aux;
                                          end;
until ok=true;
for i:=1 to n do with v[i] do writeln(nume:10,inaltime:10,greutate:10);
i:=0;p:=1;s:=0;
repeat
inc(i);
s:=s+v[i].inaltime*p;
p:=p*v[i].greutate;
until i=n;
a:=s;
b:=p;
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
s:=s div a;
p:=p div a;
write('media finala',s,'/',p*n);
end.