 Помогите решить задачу с двумерном массивом! |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Lion4ik |
 9.04.2007 11:50
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Вячеслав Репутация:  0   |
Вот задачка она из сборника взята!
В двумерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - в 1 столбце, за февраль во 2 и т.д.) Определить общую зарплату, выполненную в июне. |
   |
 
|
| Tan |
9.04.2007 11:57
Сообщение
#2
|
 Профи Группа: Пользователи Сообщений: 559 Пол: Мужской Реальное имя: Бруно Репутация: 10 |
Ну заполняешь массив, а потом просто берёшь 6й столбик и считываешь все его элементы в копилку (сумма будет соответсоввать сумме зарплат 18 работников за июнь, что и требуется).
Добавлено через 6 мин. sum:=0;
for i:=1 to N do sum:= sum + ms[i,6];
Что - то такое, вероятно тебе надо, здесь N = 18. Сообщение отредактировано: Tan - 9.04.2007 12:49 -------------------- Цитата Imagination is more important than knowledge. Albert Einstein |
|
|
|
| udaaff |
9.04.2007 13:17
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Vitalik Репутация: 0 |
в более подробной форме))
const
sum: longint = 0;
var
salary: array[1..18, 1..12] of longint;
i, j: integer;
begin
{заполняем элементы массива}
for i:= 1 to 18 do
for j:= 1 to 12 do readln(salary[i, j]);
{суммируем элементы в шестого столбца}
for i:= 1 to 18 do sum:= sum + salary[i, 6];
write(sum)
end.
лучше такой массив большой из внешнего файла брать Сообщение отредактировано: udaaff - 9.04.2007 13:19 |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.07.2025 2:24 |