Question

ПРОШУ помогите с информатикой - ОДНОМЕРНЫЕ массивы паскаль
Напишите программу нахождения минимального простого элемента. Если простых чисел нет, нужно вывести сообщение ″Простых чисел нет″.

Answer 1

Ответ:

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.

Объяснение:

Answer 2

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.