Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Целые числа |
| Данила |
Сообщение
#1
|
|
Гость  |
Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.
Даны действительные числа а1,а2,... ,аn. Поменять местами наибольший и наименьший элементы. Даны целые числа а1,а2,... ,аn. Вывести на печать только те числа, для которых выполняется аi <= i. :molitva: |
 
|
|
Данила Целые числа 30.01.2005 7:25
klem4 1)
uses crt;
const n=5;
var x:array[1..n… 30.01.2005 13:37 Nemo По решению первого задания: в целях оптимизации не… 30.01.2005 16:32 klem4
Я не задумывался и мне намного проще было написа… 30.01.2005 16:55 klem4 Если уж на то пошло, то можно обойтись вообще без … 30.01.2005 17:29
APAL 3)
Const n=5;
...
For i:=1 to n do If m… 30.01.2005 18:08  |
|
Текстовая версия | 22.12.2025 22:15 |
