Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
2 / 2 / 0
Регистрация: 30.05.2011
Сообщений: 32
1

дано произвольное множество вещественных чисел в интервале 1..40. Найти все положительные элементы во множестве.

30.05.2011, 23:42. Показов 1558. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
дано произвольное множество вещественных чисел в интервале 1..40.
Найти все положительные элементы во множестве.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2011, 23:42
Ответы с готовыми решениями:

Дано линейный массив действительных чисел. Найти все положительные элементы данного массива и подсчитать их количество
Дано линейный массив действительных чисел. Найти все положительные элементы данного массива и...

*. В файле из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом
Помогите с задачей! Видел подобное решение в нижестоящей теме но оно слишком сложное желательно...

Дано множество из n случайных чисел из отрезка [-10,10]. Найти элементы множества больше -1, их количество, произведение
Дано множество из n случайных чисел из отрезка . Найти элементы множества больше -1, их количество,...

Пусть заданы множество А и множество В целых чисел, вывести напечатать все элементы множества В которые не входят в множество А.
Пусть заданы множество А и множество В целых чисел, вывести напечатать все элементы множества В...

1
2 / 2 / 0
Регистрация: 30.05.2011
Сообщений: 32
05.06.2011, 23:11  [ТС] 2
может кому-то пригодится:
(только в решении я искала сумму положительных элементов)

Код
uses crt;
var mn:set of byte;
i,x,n:byte;
begin
clrscr;
randomize;
mn:=[];
n:=0;
for i:=1 to 10 do
begin x:=random(41);
mn:=mn+[x];
write(x,' ');
if x>0 then n:=n+x;
end;
     writeln('n=',n);
 readln;
end.
0
05.06.2011, 23:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2011, 23:11
Помогаю со студенческими работами здесь

Пусть заданы множество А и множество В целых чисел, вывести (напечатать) все элементы множества В которые не входят в множество А.
Решите Пожалуйста !!!

Дано вещественное число R и массив вещественных чисел. Найти 2 элементы массива, которые наименее близки к данному числу R
Дано вещественное число R и массив вещественных чисел. Найти 2 элементы массива, которые наименее...

Объединить два множества и найти в новом множестве положительные элементы.
Дана задача: Объединить два множества , и найти уже в новом множестве положительные елементы. как...

На множестве вещественных чисел R найти множества истинности предикатов
На множестве вещественных чисел R найти множества истинности предикатов P\wedge Q, P\Rightarrow Q,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru