Răspuns :
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...
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!