Эй, человечки, одномерный массив из 8 элементов заполнить случайным образом числами от 10 до 20. заменить все элементы массива меньше 15 их удвоенными значениями.вывести на экран монитора первоначальный и преобразованный массивы в столбик (столбики должны быть расположены рядом)

Var arr: array[1..100] of integer; min,max: integer; begin       for var i: =1 to 100 do arr[i]: =random(-60,140);       min: =arr[1];       max: =arr[1];       for var i: =2 to 100 do begin           if arr[i]< min then min: =arr[i];           if arr[i]> max then max: =arr[i];       end;       writeln(arr);       writeln('максимальный элемент: ', max, ', минимальный элемент: ',min); end.

Var matrix1: array [,] of real; n: integer; tmp: real; begin   write('введи размерность матрицы: ');   readln(n);   matrix1: =new real[n,n];   for var i: =0 to n-1 do  begin     for var j: =0 to n-1 do     begin       matrix1[i,j]: =random(100);       write(matrix1[i,j]: 4);     end;     writeln;   end;   writeln('поменяли: ');   for var j: =0 to n-1 do   begin       tmp: =matrix1[j,n-1];       matrix1[j,n-1]: =matrix1[n-1,j];       matrix1[n-1,j]: =tmp;   end;   for var i: =0 to n-1 do  begin         for var j: =0 to n-1 do               write(matrix1[i,j]: 4);         writeln;   end;   end.