Question

Salut!
Cer ajutor la o problema PASCAL!!!
Taxiurile actuale sunt înzestrate cu aparate de taxat care la fiecare pornire indică o sumă de pornire
k (lei). Această sumă ulterior este adăugată la valoarea cursei.
Sarcină: Scrieți un program, care afișează la ecran suma încasată de taximetrist pe parcursul
câtorva curse, excluzând suma de pornire k.
Intrare: Fișierul text Taxi.TXT conține în prima linie două numere întregi, separate prin spațiu: N
(0 < N ≤ 16) – numărul de curse efectuate de către taximetrist și k – suma de pornire.
Fiecare din următoarele N linii conține câte un număr întreg - valoarea cursei
corespunzătoare.
Ieșire: La ecran se va afișa un număr întreg – suma totală obținută de către taximetrist, fără suma
de pornire

Answer 1

program taxi;

var f: text;

   n, suma, k, i, valcursa: integer;

begin

 assign(f,'taxi.txt'); reset(f);

 readln(f, n, k);

 suma:=0;

 for i:=1 to n do

   begin

     readln(f, valcursa);

     suma:=suma+valcursa;

   end;

 suma:=suma-k*n;

 writeln('Suma incasata: ', suma, ' lei');

 close(f);

end.