В результате приведенной программы на Паскале на экран выводится: const m=…; var a, rez: array [1..m] of byte; i, n, x, k: integer; stroke: string; begin stroke:='1234'; x:=5; 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.

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

• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп: ... k:=1; for j:=k to m-k do for i:=j+k to m do writeln (A[i], '-', A[j]); …
• # Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже: … for i:=1 to 5 do a[i]:=i-5; m:=a[1]; for i:=1 to 5 do if a[i]<m then m:=a[i]; …
• # Предскажите, какие значения будет содержать массив х, в результате выполнения программы на Паскале, фрагмент которой приведен ниже, если первоначально в массиве соделжались значения . Ответ дайте в поле ввода без пробелов: . . . for i:=1 to 5 do readln (x[i]); for j:=5 downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin y:=x[i]; x[i]:= x[i+1]; x[i+1]:=y; end; …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив Х вводятся N натуральных чисел. Массив У будет содержать: … j:=0; k:=0; n:=9; for i:=1 to n do x[i]:=i; for i:=1 to n do if x[i] mod 2<>0 then begin j:=j+1; y[j]:=i; end; …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже заполняется квадратный массив: … for i:=1 to (?) do for j:=1 to i do x[i,j]:=1; … Укажите выражение, которое должно стоять вместо вопросительного знака в заголовке цикла, чтобы квадратный массив заполнится таким образом: \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}