1. дан массив, заполненный случайным образом положительными числами. в массиве 10 элементов. вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. вывести получившийся массив на экран. 2. в программе описан одномерный целочисленный массив а с индексами от 0 до 15. чему будут равны элементы этого массива после выполнения фрагмента программы? for i: =0 to 15 do a[i]: =i x z; for i: =1 to 15 do a[i]: =a[i-1]; оба требуется выполнить в программе pascal.

1) uses crt; const n=11; var i: integer; a: array[1..n] of integer; begin randomize; for i: =1 to n-1 do begin a[i]: =random(99); write(a[i],' '); end; writeln(); for i: =n downto 8 do a[i]: =a[i-1]; a[7]: =0; for i: =1 to n-1 do a[i]: =a[i+1]; for i: =1 to n-1 do write(a[i],' '); end.2)uses crt; var i,z: integer; a: array[0..15] of integer; beginread(z); for i: =0 to 15 do  a[i]: =i*z; for i: =1 to 15 do  a[i]: =a[i-1]; for i: =0 to 15 dowrite(a[i],' '); end.

Const   m=6;   n=8; var   a: array[1..m,1..n] of integer;   i,j,r: integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i,j]: =random(100);           write(a[i,j]: 3)       end;       writeln   end;   for j: =1 to n do   begin r: =a[1,j]; a[1,j]: =a[m,j]; a[m,j]: =r end;   writeln('результирующий массив');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i,j]: 3);       writeln   end end. тестовое решение: исходный массив   6 93 10  3 80  4 47 71   33 33 75 85 93 22 53 16   83 30 39 95 35 53 30 83   29 43 83 54 88 83 49 67   24 67 47 97 82 40 67 35   42 26 67 23 28  8  8 45 результирующий массив   42 26 67 23 28  8  8 45   33 33 75 85 93 22 53 16   83 30 39 95 35 53 30 83   29 43 83 54 88 83 49 67   24 67 47 97 82 40 67 35   6 93 10  3 80  4 47 71

Написал программы только на первые три . может другим "про-кодерам"  он не понравится,зато работает, принимай: 1: var p: array[1..10] of integer;   i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> '); readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer;     i: integer;     s: integer;     count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0)  thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer;     i: integer;     crat: integer;     id: integer;           begin    for i: =1 to 10 do    begin    read(arr[i]);     crat: =arr[i] mod 3;     if(crat = 0) then    begin    id: =arr[i];       if(arr[i] = id) then writeln('id = ', i: 2);     end;     end;     end.если что-то не получится - пиши, разберемся.