Составить программу для этого: буду !

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

космонафт   відповідь на

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10

так чтоли?

< html>   < head>       < title> анкета< /title>   < /head>   < body>       < h1> анкета< /h1>       < form>           какой браузер вы используете?           < select name="browser">               < option selected> internet explorer              < option> opera              < option> mozila          < /select>           < br/>           ваша электронная почта < input type="text" name="email" />           < br/>           ваше имя < input type="text" name="name" />           < br/>       < /form>       < a href="mailto: [email  protected]"> mailto: [email  protected]< /a>   < /body> < /html>