35 составить программу для решения : определить каким является случайное число в диапазоне от -20 до 20 положительным или отрицательным ?

Program CountA;

Uses Crt;

var a,n,x,i:integer;
begin

clrscr;  // очищаем экран
write('Введите число n:');
readln(n); // ввод данных

write('Введите цифру а: ');
readln(a);  // ввод данных
x:=1; i:=0;  i-счётчик цифр а  
while (n<>0) do // Пока n не стало равным нулю
begin
    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  
   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 
   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
 end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу

end.

 

 

Program N1;

Uses Crt;

var n,s,c:real;

begin

 

     clrscr;

     write('Введите числа. Конец ввода 0: ');   

 

     n:=1;s:=0;c:=0;

     while (n<>0) do

          begin

             readln(n);               

if (n=0) then break;  

 if (n>0)   then 

          begin  

               s:=s+n;

                c:=c+1;

          end; 

         end;   

 

   writeln('Сумма чисел:',s);

    writeln('Среднее арифметическое:',s/c);   

 

     readkey;

 

 end.

 

 

Program N2;

Uses Crt;

var n,s,c:real;

begin

     clrscr;

     write('Введите числа. Конец ввода 0: ');   

     s:=0;c:=0;

 

      repeat

         readln(n);

          if (n=0) then break;

           if (n>0)   then

              begin  

                    s:=s+n;

                    c:=c+1; 

               end;

         until (c=0);  

 

    writeln('Сумма чисел:',s);

    writeln('Среднее арифметическое:',s/c);   

     readkey;

 end.