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

… 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 …

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

• # В результате приведенной программы на Паскале на экран выводится: 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.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет следующее: … j:=1; k:=0; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; k:=k+1; end; for j:=k downto 2 do for i:=1 to j-1 do if x[y[i]]>x[y[i+1]] then begin z:=x[y[i]]; x[y[i]]:=x[y[i+1]]; x[y[i+1]]:=z; end; …
• # В программе на Паскале все значения элементов двумерного массива равны "2". Что будет выведено на экран монитора в результате выполнения программы, фрагмент которой приведен ниже: … n:=5; x[2,3]:=5; x[4,1]:=1; max:=x[1,1]; min:=x[1,1]; for i:=1 to n do for j:=1 to n do if x[i,j]>max then max:=x[i,j] else min:=x[i,j]; writeln (max, ' ', min); …
• # Типовой алгоритм поиска максимального и минимльного элемента двумерного массива на Паскале, фрагмент которого приведен ниже, содержит ошибку. Найдите ее: … m1:=x[1,1]; m2:=x[1,1]; for i:=1 to n do for j:=1 to m do if x[i,j]<m1 then m1:=x[i,j] else m2:=x[i,j]; …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, квадратный массив будет заполнен таким образом: … for i:=1 to n do for j:=1 to (n-i+1) do x[i,j]:=1; …