Informatică, întrebare adresată de DoubleNy, 9 ani în urmă

buna , am nevoie de putin ajutor . 
cum aflu suma numerelor diizibile cu 3 si 7 dintr-un tablou (vector) in pascal ? ms,anticipat . 

Răspunsuri la întrebare

Răspuns de wolverine1998
1
if x div 3:=0 then if x div 7 :=0 then do
S:=S+x

DoubleNy: multumesc
wolverine1998: cu placere
DoubleNy: var
tablou:array[1..100] of integer ;
i,n,sum: integer ;
Begin
Writeln('dati numarul componentelor din vector ' ) ; readln(n);
for i:=1 to n do begin
writeln('scriti cifrele din tablou ' ) ; readln(tablou[i]);
end;

if tablou[i] div 3:=0 then
if tablou[i] div 7:=0 then
sum:=0;
sum:=sum+tablou[i] ;

writeln('suma este=',sum);
readln;
end.
DoubleNy: asa ar trebui sa fie ? imi da eroare , boolean expresion expected , nu stiu cum sa o rezolv (
Alte întrebări interesante