Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{La un magazin se gasesc mai multe produse la preturi diferite. Stiind ca o gospodina dispune de o suma s de bani, sa se determine daca exista un produs egal cu suma de care dispune si in caz afirmativ care este acesta EX.Suma de care se dispune este 60,5 Preturile prod sunt: 20,5 ; 100,7 ; 34,9 ; 60,5 ; 23,9 ; 57,8 Iesire prod 4}
program pret;
var n,i:integer; p:array[1..100] of real; s:real; begin write('cite produse sunt in magazin ? n=');readln(n); write('ce suma are gospodina ? s=');readln(s); for i:=1 to n do begin write('pret produs p[',i,']='); readln (p[i]) end;
for i:=1 to n do write(p[i],' '); writeln; writeln(s); begin for i:=1 to n do if p[i]=s then writeln('conditia indeplinita de produsul ',i); end; readln end.
_______________________________________ House Music Set`s Me Free!
|
|