1. дан целочисленный массив размера n. проверить, чередуются ли в нем четные и нечетные числа. если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность. 2. дан массив a размера n. сформировать новый массив b того же размера по следующему правилу: элемент bk равен среднему арифметическому элементов массива a с номерами от k до n.

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; }.

 

 

 

Var   mini, min, n, i: integer; begin   i : = 1; {порядковый номер введенного с клавы числа}   readln(n); {считываем число в клавиатуры}   min : = n; {присваеваем минимуму первое введенное число. если будет введено одно число то оно и есть минимум}   mini : = i; {присваеваем порядковый номер минимума}     repeat{повторяем}       i : = i + 1; {порядковый номер введенного с клавы числа}       readln(n); {считываем число в клавиатуры}       if (n < > 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}           min : = n; {присваеваем минимуму число}           mini : = i; {присваеваем порядковый номер минимума}       end;   until n = 0; {до тех пор пока n=0}     writeln('index = ', mini); end. что еще не понятно?

//pascalabc.net 3.1 сборка 1200 procedure decomposition(depth, previous, rest: integer; a: string); begin   if rest < 0 then       exit;     if (rest = 0) and a.contains('+') then begin       println(a);       exit;   end;     for var i : = previous to rest do       decomposition(depth + 1, i, rest - i,           (a = '') ? i.tostring() : a + ' + ' + i.; end; begin   decomposition(1, 1, readinteger('n ='), ''); end.