| N | AZ ÉRETTSÉGI TÉTELEKET NE ITT KERESD, MERT ITT NINCSENEK. NEM IS VOLTAK, NEM IS LESZNEK. | N |
-
skristof #12609 program triatlon;
uses crt;
type
versenyzok = record
nev : string;
uszas,kerekpar,futas,ossz : integer;
end;
var
tomb : array[1..100] of versenyzok;
h : integer;
procedure beolvas;
var
filev : text;
begin
assign(filev,'TRIATLON.BE');
reset(filev);
h:=1;
repeat;
readln(filev,tomb[h].nev);
readln(filev,tomb[h].uszas);
readln(filev,tomb[h].kerekpar);
readln(filev,tomb[h].futas);
tomb[h].ossz:=tomb[h].uszas+tomb[h].kerekpar+tomb[h].futas;
inc(h);
until eof(filev);
//proba
writeln(tomb[h].ossz);
close(filev);
end;
begin
clrscr;
beolvas;
repeat; until keypressed;
end.
ebben hol a hiba eddig? exitcode 2-vel kilép, és nem veszem észre mit basztam el :S