Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Вариант 4, Задача с массивом |
| ASUS |
 
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Евгений Репутация:  0   |
Здравствуйте! Помогите решить задачу
 Дан массив целых чисел, состоящих из 10 элементов. Заполнить его с клавиатуры. Найти: - удвоенную сумму положительных элементов; - вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго) Помогите.... Сообщение отредактировано: ASUS - |
   |
 
|
  |
| mamont001 |
Сообщение
#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 - -------------------- Админ наш,
Иже еси на серверах! Да святится имя Твое, Да приидет Unix Твой, Да будет воля Твоя, Как на земле , так и на небе. Пинг наш насущный дай нам на сей день; И прости нам счета наши, как и мы оставляем их должникам нашим; И не введи нас во искушение виндовое, Но избавь нас от лукавого Билли. И да пребудет с нами сила твоя великая, Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь! |
|
|
|
ASUS Вариант 4 23.01.2007 19:19
мисс_граффити сам что-то пробовал?
если да - показывай. если нет… 23.01.2007 22:20
ASUS
сам что-то пробовал?
если да - показывай. если не… 24.01.2007 0:02 AnTiDoD Ты написал произведение всех элементов, а тебе же … 24.01.2007 0:14 ASUS точно, совсем не заметил... 24.01.2007 0:28 ASUS to mamont001
сама прогрограмма будет выгледеть так… 24.01.2007 0:40 mamont001 Почти :)
program nomer2;
var
a:array[1..10]of i… 24.01.2007 1:17 volvo Ну сказано же, удвоенная СУММА!!! Что … 24.01.2007 1:23 mamont001 Просто все делается методом copy-paste :) 24.01.2007 1:23 ASUS volvo
Можно задать очень глупый вопрос... что надо… 24.01.2007 2:37 mamont001 Ето заполнение масива.
делаеться так:
for i:= 1 … 24.01.2007 2:42 ASUS Всем БОЛЬШОЕ СПАСИБО!!! А mamont001 и… 24.01.2007 3:05 |
|
Текстовая версия | 7.11.2025 11:35 |
