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

Dadahkkkaaa001 Dadahkkkaaa001    2   20.03.2020 00:19    0

Ответы
emasihinp08dbq emasihinp08dbq  12.10.2020 01:32

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Мирандалина1414 Мирандалина1414  12.10.2020 01:32

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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика