Помогите решить задачу с двумерном массивом! Опции

[Lion4ik]

Вот задачка она из сборника взята!
В двумерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - в 1 столбце, за февраль во 2 и т.д.) Определить общую зарплату, выполненную в июне.

[Tan]

Ну заполняешь массив, а потом просто берёшь 6й столбик и считываешь все его элементы в копилку (сумма будет соответсоввать сумме зарплат 18 работников за июнь, что и требуется).

Добавлено через 6 мин.

sum:=0;
for i:=1 to N do sum:= sum + ms[i,6];

Что - то такое, вероятно тебе надо, здесь N = 18.

Сообщение отредактировано: Tan - 9.04.2007 16:49

[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.

лучше такой массив большой из внешнего файла брать

Сообщение отредактировано: udaaff - 9.04.2007 17:19