Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ZADACHA4;
- var
- a : array [1..15] of integer;
- I : byte;
- begin
- Randomize;
- For i := 1 to 15 do
- Begin
- a[i]:=-15+random(15-(-15+1));
- Write(a[i],’ ‘);
- if ((i mod 2) = 1) and (a[i] > 0) and ((a[i] mod 3) =0) then
- writeln(a[i])
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement