Дан массив c(n) .Переписать в массив x(n) только положительные элементы массива а, деленные на 3 Затем упорядочить методом «шейкер-пузырька» по возрастанию новый массив. Найти общее количество одинаковых элементов в упорядоченном массиве. c++

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один

а)сумм(a5: b7)

б)срзнач(c4: c7)