Question

Scrieți un Program Pascal care citește un Nr natural n și un vector cu n numere întregi și afișează suma cifrelor fiecărui element din vector.
Am test, va rooooog

Answer 1

Răspuns:

program sumaCifrelor;

var n,i:integer;

   v,w: array[1..100] of integer;

function sumaCif(num:integer):integer;

var c,s:integer;

begin

 s:=0;

 while num<>0 do

   begin

     s:=s+num mod 10;

     num:=num div 10;

   end;

 sumaCif:=s;

end;

begin

 write('n= '); read(n);

 writeln('Dati ',n,' numere naturale: ');

 for i:=1 to n do

   begin

     read(v[i]);

     w[i]:=sumaCif(v[i]);

   end;

 writeln('Vectorul cu sumele cifrelor fiecarui element din vector: ');

 for i:=1 to n do

   write(w[i],'  ');

 writeln;

end.

Explicație:

nu ştiu dacă ştii să foloseşti functii create, dar am folosit.... Dacă ceva modificăm...