Назовите функции основные свойства объекта SpinEdit

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.