Решение задач.

uses
  crt;
const
  N=10;
var
  a:array[1..N]of integer;
  i,j,sumo,sump:integer;
begin
  {çàäàåì ìàññèâ}
  sumo:=0;
  sump:=0;
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to N do
  begin
    a[i]:=random(8)-4;
    if a[i]>0 then
      inc(sump,a[i])
    else
      if a[i]<0 then
        inc(sumo,a[i]);
    write(a[i],' ')
  end;
  writeln(']');
  writeln('Ñóììà ïîëîæèòåëüíûõ: ',sump,' Ñóììà îòðèöàòåëüíûõ: ',sumo)
end.

uses
  crt;
const
  NR=10;{ðàçìåð èñõîäíîãî ìàññèâà}
var
  a,z:array[1..NR]of integer;
  i,j,NZ:integer;
begin
  writeln('Èñõîäíûé ìàññèâ R:');
  write('[ ');
  for i:=1 to NR do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  NZ:=0;
  for i:=1 to NR do
    if a[i]>0 then
    begin
      inc(NZ);
      z[NZ]:=a[i]
    end;
  for i:=1 to NR do
    if a[i]<0 then
    begin
      inc(NZ);
      z[NZ]:=a[i]
    end;
  writeln('Ïîëó÷åííûé ìàññèâ Z:');
  write('[ ');
  for i:=1 to NZ do
    write(z[i],' ');
  writeln(']');
end.

uses crt;
const n=20;
var r,z:array[1..n]of integer;
    i,k,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
   begin
     z[i]:=random(20)-10;
     write(z[i],' ');
   end;
writeln;
writeln;
k:=0;
for i:=1 to n do
 r[i]:=z[i];
for i:=1 to n do
if z[i] > 0 then
  begin
    k:=k+1;
    x:=z[i];
    for j:=i downto k+1 do
    z[j]:=z[j-1];
    z[k]:=x;
  end;
for i:=1 to n do
write(z[i],' ');
readln
end.

function Sum(n:integer):integer;
var
  temp,s:integer;
begin
  temp:=n;
  s:=0;
  while temp<>0 do
  begin
    inc(s,temp mod 10);
    temp:=temp div 10
  end;
  Sum:=s
end;
var
  a,b,i:integer;
begin
  readln(a,b);
  for i:=100 to 999 do
    if (sum(i) = a) and (i mod 10 = b) then
      write(i,' ');
  writeln
end.

program count;
var
  a, b, i, c, s: integer;
 
begin
  Write('vvedite a ');
  ReadLn(a);
  Write('vvedite b ');
  ReadLn(b);
  c := 0;
  for i:= 100 to 999 do
  begin
    s := Trunc(i/100)+Trunc(i/10)-Trunc(i/100)*10+i-Trunc(i/10)*10;
    if (s=a) and (i-Trunc(i/10)*10=b) then
      Inc(c);
  end;
  Write(c);
  ReadLn;
end.

{Дана действительная матрица размера m x n.Опеределить числа b1,.... bm,
  равные соответсвенно;
 разностям,наибольших и наименьших значений элементов строк}
 var
  a:array [1..10,1..10] of real;
  b:array [1..10] of real;
  i,j,n,m,k:integer;
  max,jmax,min,jmin:real;
begin
  writeln('Введите размер матрицы');
  readln(n,m);
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random*8-3;
      write(a[i,j]:5:2,' ')
    end;
    writeln;
  end;
    for i:=1 to n do begin
      max:=a[i,1]; min:=a[i,1];
        for j:=1 to m do begin
          if a[i,j] > max then max:=a[i,j];
          if a[i,j] < min then min:=a[i,j];
        end;
        k:=k+1; b[k]:=max-min;
    end;
   writeln('Массив из чисел b1,..bm');
    for i:=1 to k do
      write(b[i]:4:2,'  ');
end.

const
h=0.3;
var
y,x:real;
begin
 writeln('Табулирование функции');
  x:=0;
  while x <=3 do begin
    y:=exp(x)-x-3;
    write(y:4:2,' при  ',x:4:2);
    writeln;
    x:=x+h;
  end;
end.

const
h=0.3;
var
y,x:real;
begin
 writeln('Табулирование функции');
  x:=0;
 repeat
    y:=exp(x)-x-3;
    write(y:4:2,' при  ',x:4:2);
    writeln;
    x:=x+h;
  until x >=3;
end.

const
h=0.3;
var
i:integer;
y,x:real;
begin
 writeln('Табулирование функции');
  x:=0;
 for i:=1 to 11 do begin
    y:=exp(x)-x-3;
    write(y:4:2,' при  ',x:4:2);
    writeln;
    x:=x+h;
  end;
end.