Умоляю, (pascalabc 9 класс). массив состоит из 30 элементов,в промежутке от -2 до 65. найти минимальное из положительных чисел,и максимальное из отрицательных.
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 Квадрат не умещается в круге
// 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