Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal:
1) Определить, что будет напечатано в результате работы следующего фрагмента программы:
<em>var k,s:integer;</em>
<em>begin</em>
<em>s:=0;</em>
<em>k:=1;</em>
<em>while k<11 do begin</em>
<em>s:=s+k;</em>
<em>k:=K+1;</em>
<em>end;</em>
<em>write(s);</em>
<em>end.</em>
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100