Создать одномерный массив с из 12 целых элементов. числа вводит пользователь с клавиатуры. вывести на экран массив в виде строики чисел. (язык паскаль)

Const n=12; var c : array[1..n] of integer;     i : integer; begin writeln('исходный массив: '); for i: =1 to n do begin   write('c[',i,']=');   readln(c[i]);   end; writeln; for i: =1 to n do write(c[i],' '); end. пример: исходный массив: c[1]=15c[2]=78c[3]=20c[4]=94c[5]=37c[6]=41c[7]=72c[8]=55c[9]=86c[10]=29c[11]=89c[12]=1315 78 20 94 37 41 72 55 86 29 89 13

//на vs 2010 решается так, в других средах разработки может нужно к заголовкам добавить .h или убрать подключение пространства имен std : (console application)

 

#include < iostream> #include < stdlib.h> #include < time.h> #include < conio.h> using namespace std; void print(int m, int ** matr)  // функция печати матрицы на экран{ for(int i = 0; i< m; i++) { for(int j = 0; j< m; j++) { cout.width(4); cout< < matr[i][j]; } cout< < endl; }}void search_and_print(int x, int **m) //функция поиска элементов с их сортировкой и выводом на экран{ int razmer = ((x*x) - x)/2; int *mas = new int [razmer]; int y = x - 1; float srednee = 0; int index = 0; for (int j = 0; j< y; j++) { for(int i = 0; i< (x-1); i++ ) { mas[index] = m[i][j]; index++; } y--; } for(int i = 0; i< (razmer-1); i++) //сортировка методом выбора. x-1 раз ищем наименьший элемент. { //принимаем за наименьший первый элемент из расматриваемых: int min = i; //поиск минимального элемента из : for(int j = i+1; j< razmer; j++) { //если нашли меньший элемент, запминаем его номер: if(mas[j]< mas[min]) min = j; } //обмен элементов: int a = mas[i]; mas[i] = mas[min]; mas[min] = a; } cout< < "\nuporyado4enniy massiv: \n"; //вывод и суммирование элементов отсортированного массива для среднего for(int i = 0; i< razmer; i++) { cout< < mas[i]< < ends; srednee += mas[i]; } //поиск арифметичесгоко реднего} srednee = srednee/razmer; cout< < "\nsrednee: "< < srednee; delete [] mas; }void main(){srand ((unsigned)time(null)); int x; cout< < "vveditrazmer matritsi po gorizontaly i po vertikaly: \n"; cin> > x; int** matr; matr = new int* [x];     //безопасный способ for(int i = 0; i< x; i++)  // динамического {  matr[i] = new int[x]; // двумерного массива. for(int j =0; j< x; j++)  //заполняем матрицу {      matr[i][j] = rand()%10-5; } //числами от -5 до 5 } cout< < "ishodnaya matritsa: \n"; print(x,matr); search_and_print(x,matr); _getch(); delete [] matr; }

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.