Для паскаля. во входном файле имеется массив из 10 целых чисел. первые 9 элементов . в выходной файл вставить 10-й элемент так, чтобы все элементы массива были .

Const   n = 10; var   i, k, j: integer;   a: array[1..n] of integer; begin   write('введите через пробел девять целых чисел в порядке возрастания: ');   for i : = 1 to n - 1 do read(a[i]);   write('введите целое число для вставки: '); read(k);   {определим позицию для вставки}   i : = 1;   while (k > a[i]) and (i < n) do i : = i + 1;   {выполним сдвиг больших элементов вправо}   for j : = n - 1 downto i do a[j + 1] : = a[j];   {осуществим вставку}   a[i] : = k;   {контрольный вывод}   writeln('результирующий массив');   for i : = 1 to n do write(a[i], ' ') end. тестовые решения: введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 введите целое число для вставки: 25 результирующий массив 3 6 8 10 14 15 17 19 24 25 введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 введите целое число для вставки: 0 результирующий массив 0 3 6 8 10 14 15 17 19 24 введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 введите целое число для вставки: 13 результирующий массив 3 6 8 10 13 14 15 17 19 24

1) на pascal:   var  t,i,j: integer;   a: array[1..4]of integer;   begin  for i: =1 to 4 do  begin  write('vvedite ',i,'-i 4islo: ');   readln(a );   end;   for i: =2 to 4 do  for j: =4 downto i do  if a[j-1]> a[j] then  begin  t: =a[j-1];   a[j-1]: =a[j];   a[j]: =t;   end;   writeln('raspolagaem 4isla v poryadke vozrastaniya: ');   for i: =1 to 4 do  writeln(a);   readln;   end.  2) на с:   #include < stdio.h>   #include < conio.h>   void main(void){  int n,a,b,c,d;   printf("\nvvedite 4x-znachnoe chislo n: ");   scanf("%i", & n);   a=n/1000;   b=(n-a*1000)/100;   c=(n-a*1000-b*100)/10;   d=n-a*1000-b*100-c*10;   if (a+b==c+d) printf("true");   else printf("false");   getch();  

// pascalabc.net 3.3 begin   var a: =arrrandom(10,-50,50);   writeln('1)');   a.println;   writeln('среднее арифметическое четных элементов = ',             a.where(x-> x mod 2=0).average);   var c: =arrrandom(10,-50,50);   writeln('2)');   c.println;   writeln('max+min = ',c.max+c.min);   writeln('3)');   var n: =readinteger('n =');   var b: =seqgen(n,random(5),x-> x+random(1,;   b.println;   var s: =readinteger('s =');   var k: =b.where(x-> x< s).count;   b: =b[: k]+arr(s)+b[k: ];   b.println; end. пример: 1) -24 12 -31 -5 -45 36 27 43 46 -6 среднее арифметическое четных элементов = 12.8 2) 24 -13 -20 -47 16 27 -33 11 22 -33 max+min = -20 3) n = 10 0 4 5 7 11 15 19 20 24 25 s = 10 0 4 5 7 10 11 15 19 20 24 25