Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{tab009.pas/1d_pag124 Fiind dat un vector v cu n elemente numere intregi. Sa se tipareasca elementele pare aflate pe pozitii divizibile cu 3}
var v: array [1..100] of integer; i,n:integer; begin write('n=');readln(n); for i:=1 to n do begin write('v[',i,']='); readln(v[i]) end; for i:=1 to n do write(v[i],' '); writeln; for i:=1 to n do begin if (v[i] mod 2 =0) and (i mod 3=0) then write (v[i],' ') end; readln; end.
_______________________________________ House Music Set`s Me Free!
|
|