Шарящие в паскале, , решить . задан одномерный массив, заполненный случайными числами: 1)определить среднее модулей минимального и максимального значений. 2)написать подпрограмму, которая определяет индекс минимального или максимального значения. 3) решить 1 на основе 2.

// pascalabc.net 3.0, версия 1066 const   mm=50;   nn=50; var   n,m,i,j,k1,k2,p: integer;   s1,s2,s3: longint;   a: array[1..mm,1..nn] of integer; begin   write('число строк и столбцов массива: '); read(m,n);   write('значение p: '); read(p);   writeln('*** сгенерированный массив ***');   randomize;   s1: =0; s2: =0; s3: =0; k1: =0; k2: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(101)-50;           write(a[i,j]: 4);           if a[i,j]> 30 then s1: =s1+a[i,j];           if odd(a[i,j]) then inc(k1)           else begin s2: =s2+a[i,j]; inc(k2) end;           if i+j=p then s3: =s3+a[i,j]           end;       writeln   end;   writeln('сумма элементов массива, больших 30: ',s1);   writeln('количество нечетных элементов массива: ',k1);   writeln('среднее арифметическое четных элементов массива: ',s2/k2);   writeln('сумма элементов массива c суммой индексов ',p,': ',s3) end. тестовое решение: число строк и столбцов массива: 8 10 значение p: 13 *** сгенерированный массив ***   -19 -39 -46  12  41  44 -44  21  11  25   13 -22    2  36  21 -42  34  15    5  25   -6  -3 -33 -29  47 -44  33    5  27  23   14  46  39 -35 -39  -1 -50  49    1  13   -4 -14  28  40 -34  48    0  -9 -36  12   -4 -20  35  45 -21  35  44  33  15  34   -40    2  44  38 -40  18 -11 -14  24 -28   -42  36 -37  42 -21 -43  19 -22 -45  49 сумма элементов массива, больших 30: 892 количество нечетных элементов массива: 40 среднее арифметическое четных элементов массива: 1.15 сумма элементов массива c суммой индексов 13: 56

Var ma: array[1..4,1..5] of integer; ar: array[1..20] of integer; k,i,j: integer; begin; randomize; writeln('matrix: '); for i: =1 to 4 do   begin;     writeln;     for j: =1 to 5 do       begin;       ma[i,j]: =random(-10,10);         if ma[i,j]< 0 then         begin;           inc(k);           ar[k]: =ma[i,j];         end;       write(ma[i,j]: 4);       end;   end; writeln; writeln('final array: '); for i: =1 to k do write(ar[i]: 4); end.