Pascal:
var
n, i, c: integer;
begin
c := 0;
write('Cate carti doreste sa procre Clara:');
readln(n);
for i := 1 to n do
begin
write('Care este pretul ', i, ' carti:');
readln(n);
c := c + n;
end;
writeln('Costul total pentru carti este=', c);
end.
C++:
#include <iostream>
using namespace std;
int main()
{
int n, carte;
float pret_c, cost;
cin>>n;
carte=0;
cost=0;
while(carte<n)
{
cin>>pret_c;
cost=cost+pret_c;
carte=carte+1;
}
cout<<cost;
return 0;
}
