1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Данила |
Сообщение
#1
|
|
Гость |
1. Даны действительные числа a1,a2…,an. Среди них есть положительные и отрицательные. Заменить нулями те числа величина которых по модулю больше максимального числа ( |a1|>max{a1,a2,…,an}).
2. Даны действительные числа a1,a2…,an. Найти мах (а1+а2na2+a2n-1,…,an+an+1,). 3. В последовательности действительных чисел a1,a2…,an. Есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Сравнить модуль Р2 с модулем Р1, указать какое из произведений по модулю больше. 4. Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулём. Сообщение отредактировано: volvo - |
Данила Действительные числа 28.01.2005 10:03
Altair
находим макс. эл-т, и заменяем его на ноль.
(каже… 28.01.2005 11:23
klem4 1)
uses crt;
const n=5;
var a:array[1..n… 28.01.2005 16:05![]() ![]() |
|
Текстовая версия | 21.12.2025 9:13 |