Задачи.Турбопаскаль.ПОМОЩЬ!

[Name777]

Нужно решить задачки в турбопаскале которые в архиве. Незадорого!!!

[DM_bite]

Если вам решить за "Незадорого!!!!", то вам во "Фриланс". А если за так, то хотя бы наработки свои выкладывайте. К примеру, задачи на массивы, это же элементарно.
№35:

if (a[i]>10) and (a[i]<20) then
begin
a[i]:= 10;
inc(k); // Переменная-счетчик
end;

№36:

const n=10;
var a:array [1..n] of integer;
b: boolean;
sum,sum1,i: integer;
begin
sum:= 0;
sum1:= 0;
for i:= 1 to n do
 begin
 if a[i]<0 then inc(sum, abs(a[i]));
 if a[i]>0 then inc(sum1, a[i]);
 end;
 if sum=sum1 then b:= true
 else b:= false;
 WriteLn(b);
 readLn;
end.

Остальные - аналогично...