Массив, одномерный массив |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Массив, одномерный массив |
Маруха |
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Дедюхина Мария Репутация: 0 |
Помогите, пожалуйста!!!
Задача: Вычислить сумму элементов массива, начиная с "К"-го по порядку и до элемента равного нулю (если такой элемент встретиться; иначе - до конца массива). "К", длину массива и значения элементов вводить с клавиатуры. ПОЖАЛЙСТА!!! |
APAL |
Сообщение
#2
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата Помогите, пожалуйста!!! помогаю, а не полностью решаю: {...} Sum - сумма Mmax - длина массива K - это "К" -------------------- |
APAL |
Сообщение
#3
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
http://forum.pascal.net.ru/index.php?showt...indpost&p=48876
А зачем одно и тоже постить? -------------------- |
trminator |
Сообщение
#4
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Код {...} Sum := 0; i := k; while (m[i] <> 0) and (i <= Mmax) do begin Sum := Sum + m[i]; inc(i) end; {...} А то break как-то некрасиво ИМХО -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Vardes |
Сообщение
#5
|
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0 |
А вот вся программа.
Код Var a:array [1..100] of integer; mas,s,i,n:integer; begin write('Введите порядок матрицы - '); readln(n); for i:=1 to n do read(a[i]); for i:=n downto 1 do if a[i]<>0 then s:=s+a[i] else break; writeln('Сумма всех членов='s); end. Но смотри,это только для целого типа. |
volvo |
Сообщение
#6
|
Гость |
Цитата write('Введите порядок матрицы - '); И где ты тут "матрицу" увидел? |
Vardes |
Сообщение
#7
|
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0 |
Ой,я забыл,только что просто с матрицами работал.
|
Маруха |
Сообщение
#8
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Дедюхина Мария Репутация: 0 |
Спасибо всем!
|
APAL |
Сообщение
#9
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
To: trminator
Цитата А то break как-то некрасиво ИМХО Не согласен! Не красиво, это когда GoTo используешь, а BREAK - вполне красиво и актуально. P.S.: Как говорится: "На вкус и цвет товарища нет." Сообщение отредактировано: APAL - -------------------- |
Altair |
Сообщение
#10
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
holy wars
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 23.12.2024 19:55 |