С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.74/34: Рейтинг темы: голосов - 34, средняя оценка - 4.74
1 / 1 / 0
Регистрация: 18.06.2012
Сообщений: 20

Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число

06.11.2012, 18:32. Показов 6808. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.11.2012, 18:32
Ответы с готовыми решениями:

Верно ли, что среди чисел - sin x в n степени, где н= от 1 до 30, есть хотя бы одно отрицательное число
если среди чисел - sin x в n степени, где н= от 1 до 30, есть хотя бы 1-но отрицательное число, то логической переменной присвоить...

Даны целые числа а1,а2,.Известно что а1>0 и что среди а2,а3,. есть хотя бы одно отрицательное число
Даны целые числа а1,а2,...Известно что а1>0 и что среди а2,а3,... есть хотя бы одно отрицательное число. Пусть а1,...,аn-члены данной...

Даны целые числа а1, а2,. Известно,что а1>0 и что среди а1, а2,.есть хотя бы одно отрицательное число
Помогите,при запуске выдает ошибку Даны целые числа а1, а2,... Известно, что а1>0 и что среди а1, а2,... есть хотя бы одно...

1
Эксперт Pascal/Delphi
 Аватар для droider
4882 / 2819 / 862
Регистрация: 04.10.2012
Сообщений: 10,250
06.11.2012, 22:12
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program posl;
var
i, n:integer;
m:array of real; max:real;
begin
Write('кол-во членов последовательности n=');
Read(n);
SetLength(m, n); //задаем размерность
Writeln('Введите элементы последовательности');
for i :=0 to n-1 do
begin 
Readln(m[i]);//ввод элементов
end;
 for i :=0 to n-1 do
 if m[i]<0 then 
 begin
 max :=m[i]; 
 break;
 end;
 if m[i]>max then max :=m[i];
Writeln;
Writeln('Наибольшее значение из отрицательных чисел ',max);
readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.11.2012, 22:12
Помогаю со студенческими работами здесь

Даны целые числа а1,а2,.Известно что а1>0 и что среди а2,а3,. есть хотя бы одно отрицательное число
Даны целые числа а1,а2,...Известно что а1&gt;0 и что среди а2,а3,... есть хотя бы одно отрицательное число. Пусть а1,...,аn-члены данной...

Если среди чисел есть хотя бы одно отрицательное число, то присвоить значение True, иначе False
Доброго времени суток, помогите исправить код, не пойму в чём ошибка! Задание таково: Если среди чисел sin{X}^{n} (n=1, 2,…,...

Определить, что среди чисел есть хотя бы одно отрицательное
Даны действительные числа a1, a2, ... Известно, что a1&gt;0 и что среди a2, a3, ... есть хотя бы одно отрицательное число. Пусть a1, ..., an...

Дано 50 чисел, среди которых есть по крайней мере одно отрицательное. Найти наибольшее среди отрицательных чисел
Дано 50 чисел, среди которых есть по крайней мере одно отрицательное. Найти наибольшее среди отрицательных чисел.

Даны целое число n>0 и последовательность из n вещественных чисел
1. Даны целое число n&gt;0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru