Предмет: Информатика,
автор: axelo2812
Напишите программу, которая находит минимальный из нечётных положительных элементов массива. Если в массиве нет нечётных положительных элементов, нужно вывести сообщение об этом.
Спасите пожалуйста!!!
Ответы
Автор ответа:
1
import random
mas = [random.randint(0,100) for i in range(40)]
print('Всі числа:\n',mas)
chonti = []
ne_chotni = []
for x in mas:
----if x%2 == 0:
--------chonti.append(x)
----else:
--------ne_chotni.append(x)
print('Парные:\n',chonti)
print("Непарные:\n",ne_chotni)
if len(ne_chotni) == 0:
----print("В масиве немає нечотних елементов!")
print("Минимальный с нечотних элементов:",min(ne_chotni))
mas = [random.randint(0,100) for i in range(40)]
print('Всі числа:\n',mas)
chonti = []
ne_chotni = []
for x in mas:
----if x%2 == 0:
--------chonti.append(x)
----else:
--------ne_chotni.append(x)
print('Парные:\n',chonti)
print("Непарные:\n",ne_chotni)
if len(ne_chotni) == 0:
----print("В масиве немає нечотних елементов!")
print("Минимальный с нечотних элементов:",min(ne_chotni))
Автор ответа:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Where(t->t.IsOdd and (t>0));
if s.Count=0 then Writeln('Нет нечетных положительнных')
else s.Min.Println
end.
Пример
n= 13
31 -5 -22 19 -30 21 -11 -28 -3 20 -19 36 -29
19
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Where(t->t.IsOdd and (t>0));
if s.Count=0 then Writeln('Нет нечетных положительнных')
else s.Min.Println
end.
Пример
n= 13
31 -5 -22 19 -30 21 -11 -28 -3 20 -19 36 -29
19
Интересные вопросы
Предмет: Английский язык,
автор: Bogdanychteren
Предмет: Қазақ тiлi,
автор: alinakzk
Предмет: Қазақ тiлi,
автор: rayanamykhamedkhan
Предмет: Математика,
автор: ariana10ufa
Предмет: Алгебра,
автор: MaryWright