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

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

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

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

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

…n:=5; j:=1; k:=0;for i:=1 to n do x[i]:=i;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;…

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

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

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

…n:=8; 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]]; …

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

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

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения:

. . . for i:=1 to n do  begin readln (x[i]); y[i]:=i; end;for j:=n downto 2 do  for i:=1 to j-1 do  if x[i]>x[i+1] then     begin	m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m;	g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;	end; . . . 

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

. . . for i:=1 to n do  begin readln (x[i]); y[i]:=i; end;for j:=n downto 2 do  for i:=1 to j-1 do  if x[i]>x[i+1] then     begin	m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m;	g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;	end; . . . 

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

…j:=0; m:=1; n:=10;for i:=1 to n do x[i]:=i;for i:=1 to n do  begin 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]]; …

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

…st:=1;for i:=1 to 5 do st:=st*2;st:=st-1;…

в переменной будет находиться:

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

… for i:=1 to 5 do a[i]:=i-6;m:=a[1];for i:=1 to 5 do if a[i]>m then a[i]:=m;…