Умоляю, (pascalabc 9 класс массив состоит из 30 элементов, в промежутке от -2 до 65. найти минимальное из положительных чисел, и максимальное из отрицательных.

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin 
  var a:=ArrRandom(ReadInteger('Введите размер массива->'),-2,65); a.Println; 
  Println(a.Where(e->e>0).Min); 
  Println(a.Where(e->e<0).DefaultIfEmpty.Max); 
end.

Пример(1):

Введите размер массива-> 10
5 22 21 20 40 9 58 57 54 -2
Минимальное среди положительных: 5 
Максимальное среди отрицательных: -2 

Пример(2):

Введите размер массива-> 10
26 7 13 60 39 62 24 9 20 11
Минимальное среди положительных: 7 
Максимальное среди отрицательных: 0 

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата  S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.

Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var s1:=ReadReal('Площадь квадрата');
  var s2:=ReadReal('Площадь круга');
  if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
  else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

#include <iostream>
#include <algorithm>
using std::cout;
using std::cin;

int main()
{
int sizeArr, input, min;
cout << "enter size arr: "; //размер массива
cin >> sizeArr;

int arr[sizeArr]; //сам массив
cout << "enter arr: ";
for(int i = 0; i < sizeArr; i++) //заполняем
{
cin >> input;
arr[i] = input;
if(i == 1)
{
min = input;
}
if(arr[i] < min)
{
min = arr[i];
}
}

int size = 0;
for(int i = 0; i < sizeArr; i++)
{
if(min == arr[i])
{
size++;
}
}

cout << std::endl << size;

return 0;
}