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

… d:=0; for j:=1 to n do begin m[j]:=x[1,j]; for i:=1 to n do begin if x[i,j]<m[j] then m[j]:=x[i,j]; end; d:=d+m[j]; end …

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

• # В результате выполнения программы, фрагмент которой приведен ниже … n=5; for i:=0 to n-1 do write (n-i); … выводится ряд чисел:
• # Ниже приведен фрагмент программы, реализующий алгоритм формирования комбинаторных групп двоичным перебором ( - количество элементов в исходном множестве): … st:=1; for i:=1 to n do st:=st*2; for i:= 1 to (st-1) do begin for j:= 1 to n do if y[j]= 0 then x:= j; for z:= x to n do y[z]:=0; y[x]:=1; … Назначение данного фрагмента:
• # Приведенная программа на Паскале реализует алгоритм … const m=…; var a, rez: array [1..m] of byte; i, n, x, k: integer; stroka: string; begin readln (stroka); readln (x); n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do begin rez[i-1]:= rez[i-1]+rez[i] div 10; rez[i]:= rez[i] mod 10; end for i:=1 to n do write (rez[i]); end.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной К будет находиться… . . . n:=5; k:=0; for i:=1 to n do a[i]:=i; for j:=n downto 2 do for i:=1 to j-1 do if a[i]<a[i+1] then begin x:=a[i]; a[i]:= a[i+1]; a[i+1]:=x; k:=k+1; end; …
• # Укажите фрагмент программы, выполнение которой приведет к такому заполнению квадратного массива: \begin{matrix} 1&0&0&0&0&0&0&0&0\\ 1&1&0&0&0&0&0&0&0\\ 1&1&1&0&0&0&0&0&0\\ 1&1&1&1&0&0&0&0&0\\ 1&1&1&1&1&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\\ \end{matrix}