Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2009, 12:21   #1
QEEN
 
Регистрация: 30.03.2009
Сообщений: 4
По умолчанию ДВУМЕРНЫЕ МАССИВЫ

помогите решить задачку,пожалуйста! найти сумму модулей элементов расположенных выше главной диагонали матрицы размером 10х10.
QEEN вне форума Ответить с цитированием
Старый 03.04.2009, 13:20   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
var a:array[1..10,1..10]...
if (x>5) then summ:=summ+a[x,y]
так понятно?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 03.04.2009, 13:22   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
for i:=1 to n do
 for j:=1 to n do
  if i>j then begin
                 sum:=sum+a[i,j];
                end;
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 03.04.2009, 13:24   #4
Zaher
 
Аватар для Zaher
 
Регистрация: 21.01.2008
Сообщений: 5
По умолчанию

Попробуй так:
var
array a[0..9,0..9] of integer;
i,j,s: integer;
begin
s:=0;
i:=0;
J:=0;
for i:=0 to 8 do
for j:=i+1 to 9 do
s:=fabs(a[i][j])+s; // Не помню как в Pascale модуль поэтому написал как в C++
end.
Zaher вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерные массивы в Си. necky Помощь студентам 2 17.05.2009 19:35
Двумерные массивы на С++ Wia Помощь студентам 11 17.05.2009 19:26
Массивы двумерные Nika_D Помощь студентам 3 19.01.2008 23:45
Двумерные массивы Lioness Помощь студентам 2 06.01.2008 12:39