Răspunsuri

Cel mai inteligent răspuns!
2014-11-06T21:35:28+02:00
If x div 3:=0 then if x div 7 :=0 then do
S:=S+x
multumesc
cu placere
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.
asa ar trebui sa fie ? imi da eroare , boolean expresion expected , nu stiu cum sa o rezolv (