Дан одномерный массив 10 целых чисел найти сумму отрицательных и положительных чисел отдельно . язык паскаль

Program test; const n = 10; var sump,sumo,i: integer; m: array [1..n] of integer; beginfor i: =1 to n do readln(m[i]); // мы заполняем массив числами for i: =1 to n do begin if m[i]> 0 then sump: =sump+m[i]; if m[i]< 0 then sumo: =sumo+m[i]; end; writeln('сумма положительных: ',sump); writeln('сумма отрицательных: ',sumo); end.

Во вложении массив формируется рандомно, если нужен ввод с клавиатуры, то заменить            mas[x]: =random(21)-10;           write(mas[x]: 4); на          read(mas[x]);

ответ:

а)1001001.0112 = 757.17283950617

б)335 = 275.87654320988

объяснение

а) вы ввели число: 1001001.01123 в 3-ричной системе счисления и хотите перевести его в десятичную.  

для этого переведем его сначала в десятичную вот так :  

1001001.0112 3-ричн. = 1∙3^6+0∙3^5+0∙3^4+1∙3^3+0∙3^2+0∙3^1+1∙3^0+0∙3^-1+1∙3^-2+1∙3^-3+2∙3^-4 = 729+0+0+27+0+0+1+0+0.+0.037037037037037+0.024691358024691 = 757.17283950617 10-тич.

получилось: 757.17283950617 10-тич.

б)

вы ввели число: 335.789 в 9-ричной системе счисления и хотите перевести его в десятичную.  

для этого переведем его сначала в десятичную вот так :  

335.78 9-ричн. = 3∙9^2+3∙9^1+5∙9^0+7∙9^-1+8∙9^-2 = 243+27+5+0.8+0.098765432098765 = 275.87654320988 1-тич

получилось: 275.87654320988 1--тич

1.

#include < iostream> using namespace std;

 

int main()

{

  const int n;

  int a[n];

  int b=0;

  int i=1;

  bool c;

  if(a[0]%2==0)

  c=true;

  else

  c=false;

  while(i< =n & & b==0)

  {

  if(c==true)

  {

    if(a[i]%2==1)

    {

      c=false;

    }

    else

    {

      b=i;

    }

  }

  else

  if(c==false)

  {

    if(a[i]%2==0)

    {

      c=true;

    }

    else

    {

      b=i;

    }

  }

  i++;

  }

  cout< < b< < endl;

  return 0;

}

2.

#include< iostream> using namespace std; int main(){  const int n;   float a[n];     float b[n];   for(int i=0; i< =n; i++)  {  float c=0;   int d=0;   for(int i2=i; i2< =n; i2++)  {  c+=a[i2];   d++;   }  c/=d;   b[i]=c;   }  return 0; }.