Какие значения примут элементы первой строки двумерного массива, размерностью 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; …

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

• # Треугольник на плоскости задан координатами своих вершин. Каким образом можно определить, прямоугольный ли это треугольник?
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная будет содержать: … n:=10; k:=n div 2; for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end; for i:=1 to k do s:=s+x[y[i]]; …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже заполняется квадратный массив: … 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}
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, массив Flag будет содержать: … for i:=1 to 10 do begin a[i]:=i; flag[i]:=0; end for i:=2 to 10 div 2 do if flag[i]=0 then for j:=i+1 to 10 do if (a[j] mod a[i]=0) then flag[j]:=1; …
• # В каком направлении идет заполнение двумерного массива в 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; …