j0vis

Nu krc, ir pats aš durns. Specialiai persikopinau tavo kodą o klaida tokia kvaila...
 

program krepsininkai; type asmuo = record Vardas : string[15]; Pavarde : string[15]; Amzius : integer; Ugis : integer; end; mas = array [1..50] of asmuo; var duom, rez : text; krepsininkas : mas; n, i, max, suma : integer; vid : real; begin Assign (duom, 'duomenys.txt'); Reset (duom); Assign (rez, 'rezultatai.txt'); Rewrite (rez); ReadLn (duom, n); max:= 1; For i:= 1 to n do begin Read (duom, krepsininkas[i].Vardas, krepsininkas[i].Pavarde, krepsininkas[i].Amzius, krepsininkas[i].Ugis); suma:= suma + krepsininkas[i].amzius; If krepsininkas[i].ugis > krepsininkas[max].ugis then max:=i; Readln(duom); end; vid:= suma / n; WriteLn (rez, 'Metų vidurkis: ', vid:3:1); WriteLn (rez, 'Aukščiausias krepšininkas: ', krepsininkas[max].vardas, ' ', krepsininkas[max].pavarde, ' ', krepsininkas[max].ugis); Close (duom); Close (rez); end.
 
Kai nuskaitai duomenis tai pas tave Read(duom......). Jis toj pacioj eilutėj ir skaito visą laiką. Neperšoka į kitą eilutę. Readln(duom) pabaigoj reik ir viskas tvarkoj.

tai ciklą paleisk iki EndOfFile ir tegu tuos tarpus skaičiuoja. Po to ten jau gali ir patobulint kad jei pvz du tarpai netyčia atsirade, kad nepriskaičiuotu ten kažko papildomai... Čia visko galima prigalvot.

tai ciklą paleisk iki EndOfFile ir tegu tuos tarpus skaičiuoja. Po to ten jau gali ir patobulint kad jei pvz du tarpai netyčia atsirade, kad nepriskaičiuotu ten kažko papildomai... Čia visko galima prigalvot.

O aš sakyčiau pražvelk ar kondensatoriai neiįšbėgę ir neišsipūtę ,tūrėjau 4 tokius gedimus 3 kondencatorius perlituot reikėjo 1 keisti motininę. Neatmetama ir Energijos bloko problema.

Anksčiau integruota vaizdo plokštė buvo montuojama į motininę plokštę, o dabar jau cpu turi integruotas vaizdo plokštes.
 
 
Teoriškai būtų galima, bet praktiškai to tiesiog neapsimokės daryti.
 
 
Dažniausiai taip.

var a : string[10]; begin a := 'labasrytas'; writeln(a[4]); end.

Ar bandei Driver Genius Pro 10

Ne apie tą patį dalyką kalbam ;D Paskaičiau sutartį kur pasirašinėjau vakar, taip, ten parašyta apie tą, skatinamąją stipendiją :) Na o aš kalbu apie tą kurią laimėt galima :D Nu bet ne nesmė.

Ai netaip salyga supratau :)

manau, jog vaizdūškei šakės. koks hp modelis?

Kazicko forumas
Olimpiadiniai uždaviniai