Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите решить задачу с двумерном массивом!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lion4ik
Вот задачка она из сборника взята!
В двумерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - в 1 столбце, за февраль во 2 и т.д.) Определить общую зарплату, выполненную в июне.
Tan
Ну заполняешь массив, а потом просто берёшь 6й столбик и считываешь все его элементы в копилку (сумма будет соответсоввать сумме зарплат 18 работников за июнь, что и требуется).

Добавлено через 6 мин.
sum:=0;
for i:=1 to N do sum:= sum + ms[i,6];

Что - то такое, вероятно тебе надо, здесь N = 18.
udaaff
в более подробной форме))
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.


лучше такой массив большой из внешнего файла брать
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.