function IsPrime(number:integer):boolean;
begin
if number = 1 then IsPrime := True
else begin
for var i:= 2 to trunc(sqrt(number)) do begin
if number mod i = 0 then IsPrime := False
else IsPrime := True;
end;
var sqnc := ReadArrInteger('Вводи: ', ReadInteger('Длина массива: '));
sqnc.Where(p -> IsPrime(p)).Min.Println;
end.
Объяснение:
PascalABC Net
function IsPrime(number:integer):boolean;
begin
if number = 1 then IsPrime := True
else begin
for var i:= 2 to trunc(sqrt(number)) do begin
if number mod i = 0 then IsPrime := False
else IsPrime := True;
end;
end;
end;
begin
var sqnc := ReadArrInteger('Вводи: ', ReadInteger('Длина массива: '));
sqnc.Where(p -> IsPrime(p)).Min.Println;
end.
Объяснение:
PascalABC Net
begin var a := ArrRandom(30, -100, 100); //Массив из 30 элементов от - 100 до 100 Println('Исходный массив', a); var x:=a.Where(x->x>1); Println('Минимальное простое: ', x.Where(x -> Odd(x)).Min); end.