Дана последовательность действительных чисел а1, а2, а3...аn Cоздать массив из положительных чисел этой последовательности (если таких чисел нет, то вывести сообщение об этом факте)
yankim14
3
05.05.2020 13:19
3
Другие вопросы по теме Информатика
АнгелинаМанакова
27.09.2019 20:00
Astento
28.04.2020 15:01
moiytrewq20005
28.04.2020 14:46
Oktay4828422
09.03.2021 13:43
Aldiyar26
09.03.2021 13:45
Reginmdms
02.09.2019 21:20
emirov2002
14.05.2021 08:58
блабла70
14.05.2021 08:59
отличник703
14.05.2021 08:59
Популярные вопросы
- Зіставити організацію влади у «варварських королівствах», Франкській імперії,...
3 - Речення з буквою д т з с ц ч ш ж р...
3 - Расположите в логическом порядке этапы модернизации экономики в XIX - начале...
2 - Знайди медіани трикутника зі сторонами 6 см, 8 см та 11 см....
3 - СОР ПО ҚАЗАҚ ТІЛІ 7 Сынып,Көмек сұраймын:D көмек сұраймын, :D...
3 - Тип хозяйства при капитализме и феодализме...
1 - Опишите пути следования Великого шелкого пути через кимаков СОС УМАЛЯЮ...
2 - Ф.И Suppzakobe teloЗадания1. Прочитай тексты и сравни их. Результаты сравнения...
2 - Производная их корня третьей степени из икс в квадрате...
3 - Гептан входит в состав : Нефти Природного газа Горного воска Синтез-газа...
1
// PascalABC.NET
begin
var n := ReadInteger('n =');
var s := ReadSeqReal('Введите числа:', n);
var a := s.Where(p -> p > 0).ToArray;
if a.Length = 0 then
Print('Положительных чисел нет')
else
a.Print
end.