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

…for i:=1 to 10 do a[i]:=i-1;z:=0; d:=0; h=1;for i:=1 to 10 do beginif i mod 2 <> 0 then z:=z+a[i]; if a[i] mod 3 = 0 then d:=d*a[i];if a[i] <= 0 then h:=h+1; end; write (z, ' ', d, ' ', h);…

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

…for i:=1 to 10 do a[i]:=i-1;z:=0; d:=1; h:=1;for i:=1 to 10 do beginif i mod 2 <> 0 then z:=z+a[i]; if a[i] mod 3 = 0 then d:=d*a[i];if a[i] <= 0 then h:=h+1; end; write (z, ' ', d, ' ', h);…

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

…a:=100; n:=5; i:=0;while (a<>0) dobegini:=i+1;write (a mod n);a:=a div n;end; …

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

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

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

… 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 a[i]:=i;m:=0;for i:=1 to 5 do if a[i]<m then m:=a[i];…

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

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

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}.

… for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …

var a: string;b, i, st, n, s, x, k:integer;begina:='25'; b:=5; s:=0; st:=1;n:=length(a);for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.

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

… for i:=1 to n dofor j:=1 to n do if i<>j then write (A[i], A[j]);…

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

. . . n:=5;for i:=1 to n do  begin x[i]:=n-i+1; 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	g:=x[i]; x[i]:= x[i+1]; x[i+1]:=g;	g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;	end;for i:=1 to n do write (x[i]+y[i]); . . .