Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ggwp;
- const n = 10;
- var a :array [1..n] of integer;
- i, p :integer;
- begin
- randomize;
- for i:= 1 to n do
- a[i]:= random(20);
- p:= 0;
- for i:= 1 to n do
- if not odd(i) and odd(a[i]) then
- p:= p + 1;
- for i:= 1 to n do
- write(a[i],' ');
- writeln;
- writeln(p);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement