В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной будет находиться:

… j:=0; m:=1; for i:=1 to n do begin read (x[i]); if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end; for i:=1 to j do m:=m*x[y[i]]; …

Правильный ответ:

произведение элементов массива , кратных трем

произведение элементов массива , на которые указывают элементы массива

произведение каждого третьего элемента массива

произведение элементов массива , на которые указывает каждый третий элемент массива

• # Каков будет результат выполнения программы, если с клавиатуры вводится слово "Ротор": var a:string; k,n,i: integer; begin readln (a); k:=0; n:=length(a); for i:=1 to n div 2 do if copy(a,i,1) <> copy(a,n-i+1,1) then k:=k+1; writeln (k); end.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива . На печать выйдет: … for i:=1 to n do for j:=1 to n do writeln (A[i], A[j]); …
• # Ниже приведен фрагмент программы … for i:=(n div 2 + 1) to n do for j:=??? x[i,j]:=1; … выполнение которой приведет к такому заполнению квадратного массива: \begin{matrix} 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&1&0&0&0&0\\ 0&0&0&1&1&1&0&0&0\\ 0&0&1&1&1&1&1&0&0\\ 0&1&1&1&1&1&1&1&0\\ 1&1&1&1&1&1&1&1&1 \end{matrix} Укажите, что должно стоять вместо вопросительных знаков в заголовке внутреннего цикла:
• # Какие значения примут элементы первой строки двумерного массива, размерностью 5x5, в результате выполнения программы на Паскале, фрагмент которй приведен ниже (введите числа через пробел) … for k:=1 to (n div 2 +1) do for i:=k to n-k+1 do for j:=k to n-k+1 do a[i,j]:= k; …
• # В каком направлении идет заполнение двумерного массива в 3-ем вложенном цикле по i, в результате выполнения программы на Паскале, фрагмент которой приведен ниже: … x:=1; for k:=1 to n div 2 do begin for i:=k to n-k do begin a[k,i]:=x; x:=x+1; end; for i:=k to n-k do begin a[i,n-k+1]:=x; x:=x+1; end; for i:=k to n-k do begin a[n-k+1,n-i+1]:=x; x:=x+1; end; for i:=k to n-k do begin a[n-i+1,k]:=x; x:=x+1; end; end; …