Водномерном массиве найти минимальный элемент и удалить его

//pascalabc.net 3.0, сборка 1064 const   nn=50; var   a: array[1..nn] of integer;   i,n,imin: integer; begin   write('введите количество элементов в массиве: '); read(n);   randomize;   writeln('исходный массив');   imin: =1;   for i: =1 to n do begin       a[i]: =random(51)-25;       write(a[i],' ');       if a[i]< a[imin] then imin: =i;   end;   writeln;   for i: =imin to n-1 do a[i]: =a[i+1];   writeln('массив-результат');   for i: =1 to n-1 do write(a[i],' '); writeln end. тестовое решение: введите количество элементов в массиве: 15 исходный массив 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2 массив-результат 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2 а это версия для тех, кто думает, что паскалю пора давно "на свалку": //pascalabc.net 3.0, сборка 1064 begin   var n: =readinteger('введите количество элементов в массиве');   var a: =seqrandom(n,-25,25).toarray();   writeln('исходный массив: ',#13#10,a);   writeln('результат: ',#13#10,a.where(x-> x< > a.min)); end. тестовое решение: введите количество элементов в массиве 15 исходный массив: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15] результат: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15] можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на java, в предыдущем ответе.

//javaimport java.util.arraylist; class main { public static void main(string[] args) { arraylist< integer> a = new arraylist(); /**   * заполнение   */ for (int i = 0; i < 50; i++) a.add(i, new java.util.(100)); /**  * пузырь  */ for (int i = 0; i < 50; i++) for (int j = 0; j < 50-i-1; j++) if (a.get(j) > a.get(j+1)){ int b = a.get(j); a.set(j, j+1); a.set(j+1, b); } for (int i = 0; i < 50; i++) system.out.print(a.get(i) + " "); system.out.println(""); /**   * удаляем   */ a.remove(0); for (int i = 0; i < 50-1; i++) system.out.print(a.get(i) + " "); }} проверка: 1 2 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 982 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 98так как использовался, само расширяющийся массив, то при удалении, ничего сдвигать не нужно

Uses crt; function f(a,b: real): real; begin f: =sqrt(a*a+b*b) end; var ab,ac,dc,bd,g,p: real; begin clrscr; writeln('введите длины строн'); write('ab='); readln(ab); write('ac='); readln(ac); write('dc='); readln(dc); g: =f(ab,ac); bd: =f(g,dc); p: =ab+ac+dc+bd; write('периметр=',p: 0: 2); readln end.