ПРОШУ помогите с информатикой - ОДНОМЕРНЫЕ массивы паскаль
Напишите программу нахождения минимального простого элемента. Если простых чисел нет, нужно вывести сообщение ″Простых чисел нет″.
Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
Ответ дал:
0
А есть ли вариант решения чем-то более простым? Нам задали эту задачу для 8 класса
Ответ дал:
0
Да вроде ничего сложного, это самые основы PABC.NET
Ответ дал:
0
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.
Ответ дал:
0
Уже дошло) Сейчас исправлю)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад