Решить : 1. составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы. 2. составьте программу, которая организует ввод массива а [1..8] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

1. var a,z: integer; m: array[1..10] of integer; begin for a: =1 to 10 do m[a]: =random(10)+1; z: =m[1]; m[1]: =m[10]; m[10]: =m[z]; end. 2var a: array[1..8]of integer; i: integer; begin for i: =1 to 8 do readln(a[i]); for i: =1 to 8 do if a[i]< 0 then a[i]: =abs(a[i]); writeln; for i: =1 to 8 do write(a[i],' '); end.

1. примерно так учат писать программы в const   nn=100; // предельное кол-во элементов в массиве type   mas=array[1..nn] of integer; procedure randomarray(var a: mas; n,p,q: integer); // заполняет первые n элементов массива a // случайными числами из интервала [p; q] var   i: integer; begin   for i: =1 to n do a[i]: =random(q-p+1)+p end; procedure printarray(a: mas; n: integer); // выводит на экран первые n элементов массива a var   i: integer; begin   for i: =1 to n do write(a[i],' ');   writeln end; procedure sortbydescending(var a: mas; n: integer); // сортирует по невозрастанию первые n элементов массива a. // элементарная обменная сортировка var   i,j,t: integer; begin   for i: =1 to n-1 do       for j: =1 to n-1 do           if a[j]< a[j+1] then               begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end end; // основная программа var   i,n1,n2,n3,x,y: integer;   a,b,c: mas; begin   randomize;   write('кол-во элементов в массиве и границы интервала из значений: ');   read(n1,x,y);   randomarray(a,n1,x,y);   write('кол-во элементов в массиве и границы интервала из значений: ');   read(n2,x,y);   randomarray(b,n2,x,y);   write('первый массив: '); printarray(a,n1);   write('второй массив: '); printarray(b,n2);   writeln('объединенный массив, отсортированный по невозрастанию');   n3: =n1+n2;   for i: =1 to n1 do c[i]: =a[i];   for i: =1 to n2 do c[i+n1]: =b[i];   sortbydescending(c,n3);   printarray(c,n3) end. тестовое решение кол-во элементов в массиве и границы интервала из значений: 8 10 60 кол-во элементов в массиве и границы интервала из значений: 6 30 90 первый массив: 41 56 14 57 52 51 30 54 второй массив: 76 36 44 39 68 38 объединенный массив, отсортированный по невозрастанию 76 68 57 56 54 52 51 44 41 39 38 36 30 14 2. на самом деле эту же можно написать гораздо короче // pascalabc.net 3.1, сборка 1246 от 23.05.2016 begin   var n1,n2,x,y: integer;   write('кол-во элементов в массиве и границы интервала из значений: ');   read(n1,x,y);   var a: =arrrandom(n1,x,y);   write('кол-во элементов в массиве и границы интервала из значений: ');   read(n2,x,y);   var b: =arrrandom(n2,x,y);   write('первый массив: '); a.println;   write('второй массив: '); b.println;   writeln('объединенный массив, отсортированный по невозрастанию');   var c: =(a+b).sorteddescending; c.println end.

Program abc; const  n=3;   m=3; var  a: array[1..n,1..m] of integer;   b,y,i,j,sum: integer;   srd: real;   begin  writeln('введите числа массива: ');     for i: =1 to n do      for j: =1 to m do      begin        write('a[',i,',',j,']= ');           readln(a[i,j]);         if a[i,j]> 0 then            begin              sum: =sum+a[i,j];             inc(b);             end          else          if a[i,j]< 0 then            inc(y);         end;       if sum> 0 then      begin        srd: =sum/b;       writeln('среднее =',srd);       end        else      writeln('нет положительных членов массива');       if y> 0 then      begin        writeln('количество отрицательных элементов =',y);       end        else      writeln('нет отрицательных членов массива'); end.