Krasokorčulovanie - Zadanie 13

program trinsaty; var a:array[1..9] of integer; aa:array[1..100]of integer;  b:array[1..100] of string; max,min,i,n,j:integer; begin writeln('zadaj pocet sutaziacich'); readln(n); randomize; for i:=1 to n do begin min:=8; max:=0; for j:=1 to 8 do begin a[j]:=random(8); if a[j]>max then max:=a[j]; if a[j]<min then min:=a[j]; end; for j:=1 to 8 do aa[i]:=a[j]+aa[i]; aa[i]:=aa[i]-max-min; writeln('zadaj meno'); readln(b[i]); end; write(b[1],' ziskala ',aa[1],' bodov.'); for j:=1 to 8 do write(a[j],' '); readln; end.