program bevasarlas; const ARUSZAM = 5; type arucikk = record arunev: string[20]; ar: integer; end; var bevasarlokosar: array[1..ARUSZAM] of arucikk; szamlalo, arkorlat, vegosszeg: integer; begin Writeln('Bevasarlas.'); Writeln('Kerem adja meg a megvasarlando arucikkeket!'); for szamlalo := 1 to ARUSZAM do begin write('A(z) ', szamlalo, '. aru neve: '); readln(bevasarlokosar[szamlalo].arunev); if bevasarlokosar[szamlalo].arunev = '' then break; write('Ara? '); readln(bevasarlokosar[szamlalo].ar); end; Writeln('Milyen ar felett nem fog megvasarolni egy arucikket?'); Readln(arkorlat); Writeln('Vegosszeg (csak az adott arkorlat alatti arucikkeket szamlazzuk ki).'); vegosszeg := 0; for szamlalo := 1 to ARUSZAM do begin if bevasarlokosar[szamlalo].ar <= arkorlat then vegosszeg := vegosszeg + bevasarlokosar[szamlalo].ar; end; Writeln('Fizetendo: ', vegosszeg); readln; end.