Решить на ! 1. написать программу для нахождения минимального числа среди положительных и максимума среди отрицательных значений массива, содержащего положительные и отрицательные целые числа и сформированного случайным образом 2. написать программу , которая находит второй максимум (минимум) массива

Const   n = 15; var   x: array[1..n] of integer;   i, min, max: integer; begin   randomize;   writeln('элементы массива');   min : = 32767; max : = -32768;   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4);       if (x[i] > 0) and (min > x[i]) then min : = x[i]       else       if (x[i] < 0) and (max < x[i]) then max : = x[i]   end;   writeln;   writeln('min=', min, ', max=', max) end. тестовое решение: элементы массива   29 -28 -14 -46 -22  13  -6  16  24 -47  -1  39  49  47 -23 min=13, max=-1 const   n = 15; var   x: array[1..n] of integer;   i, max, max1: integer; begin   randomize;   writeln('элементы массива');   max : = -32768; max1 : = max;   for i : = 1 to n do   begin       x[i] : = random(100);       write(x[i]: 3);       if max < x[i] then begin max1 : = max; max : = x[i] end       else       if max1 < x[i] then max1 : = x[i]   end;   writeln;   writeln('второй максимум равен ', max1) end. тестовое решение: элементы массива   37 66 92 11 39 32 70 17 28 80 51 37  1 56 41 второй максимум равен 80

ответ: Да

Объяснение: