Question

Salut, am nevoie de ajutor cu o problema PASCAL!
Mersi anticipat :)
Un magazin de tehnică digitală a decis să-și premieze clienții, care pe parcursul unui an au
procurat mărfuri de o sumă totală mai mare decât o sumă prestabilită Q. Datele despre
cumpărături se păstrează într-un fișier text pe cardul de reduceri al fiecărui client.
Sarcină: Scrieți un program care va citi datele despre cumpărături din fișierul text CARD.IN și va
afișa denumirea premiului pentru client: MULTUMIM – dacă suma cumpărăturilor este mai mică
decât valoarea Q, MOUSE - pentru suma de cumpărături de la Q la 2Q, TASTATURA - pentru
suma de cumpărături de la 2Q+1 la 3Q și WEBCAM – pentru sumele care depășesc 3Q.
Denumirea premiului va fi afișată la ecran.
Intrare:
 Fișierul text CARD.IN conține în prima linie numărul întreg N (0 cumpărături efectuate pe parcursul anului. Urmează N linii, ce conțin câte un număr
întreg – valorile cumpărăturilor efectuate. Linia i+1 conține valoarea cumpărăturii i.
 Valoarea întreagă Q se introduce de la tastatură.
Ieșire: La ecran se va afișa un șir de caractere – denumirea premiului ce urmează să fie primit

Answer 1

program Premiu;

var f:text;

   Q, suma, n, i, val:integer;

begin

 write('Q='); read(Q);

 assign(f,'CARD.IN'); reset(f);

 suma:=0;

 readln(f,n);

 for i:=1 to n do

   begin

     readln(f, val);

     suma:=suma+val;

   end;

 if suma<Q then writeln('MULTUMIM')

 else if suma<=2*Q then writeln('MOUSE')

      else if suma<=3*Q then  writeln('TASTATURA')

           else writeln('WEBCAM');

 close(f);

end.