 Вариант 4, Задача с массивом |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| ASUS |
  23.01.2007 15:19
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Евгений Репутация:  0   |
Здравствуйте! Помогите решить задачу
 Дан массив целых чисел, состоящих из 10 элементов. Заполнить его с клавиатуры. Найти: - удвоенную сумму положительных элементов; - вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго) Помогите.... Сообщение отредактировано: ASUS - 23.01.2007 15:20 |
   |
 
|
  |
Ответов
| mamont001 |
 23.01.2007 20:21
Сообщение
#2
|
 Вожак стада  Группа: Пользователи Сообщений: 179 Пол: Мужской Реальное имя: кирилл Репутация: 1 |
Цитата for i:=1 to 10 do if a[i]>0 then pp:=pp*a[i]; Ето сумма елементов?????  Удвоенная сумма ето рр*2  ;Если я правильно понял второе... {...........} for i:= 2 to 10 do if a[i]>a[i-1] then write(i); {...........} Сообщение отредактировано: mamont001 - 23.01.2007 20:24 -------------------- Админ наш,
Иже еси на серверах! Да святится имя Твое, Да приидет Unix Твой, Да будет воля Твоя, Как на земле , так и на небе. Пинг наш насущный дай нам на сей день; И прости нам счета наши, как и мы оставляем их должникам нашим; И не введи нас во искушение виндовое, Но избавь нас от лукавого Билли. И да пребудет с нами сила твоя великая, Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь! |
|
|
|
| ASUS |
23.01.2007 20:28
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
точно, совсем не заметил...
|
|
|
|
Сообщений в этой теме
ASUS Вариант 4 23.01.2007 15:19
мисс_граффити сам что-то пробовал?
если да - показывай. если нет... 23.01.2007 18:20
ASUS
сам что-то пробовал?
если да - показывай. если не... 23.01.2007 20:02 AnTiDoD Ты написал произведение всех элементов, а тебе же ... 23.01.2007 20:14 ASUS to mamont001
сама прогрограмма будет выгледеть так... 23.01.2007 20:40 mamont001 Почти :)
program nomer2;
var
a:array[1..10]of i... 23.01.2007 21:17 volvo Ну сказано же, удвоенная СУММА!!! Что ... 23.01.2007 21:23 mamont001 Просто все делается методом copy-paste :) 23.01.2007 21:23 ASUS volvo
Можно задать очень глупый вопрос... что надо... 23.01.2007 22:37 mamont001 Ето заполнение масива.
делаеться так:
for i:= 1 ... 23.01.2007 22:42 ASUS Всем БОЛЬШОЕ СПАСИБО!!! А mamont001 и... 23.01.2007 23:05 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 22:29 |