[SmaZz]

надо в паскале сделать такое:
найти сумму элементов массива меньше своего номера

[YVitaliy]

"свой номер" - я не знаю, каков у массива может быть номер. Или массив двумерный?. Массив откуда берется? Из файла, клавиатуры, рандомно? Размер массива "статичный" или "динамичный"?

[SmaZz]

Я так понял что на экран в ячейки вбиваешь цифры и рассчитываешь. школьная же задача

[angvelem]

Ну если школьная, так и делай сам.

[YVitaliy]

Так еще и графический интерфейс? Не думаю, что школьная... Тебе так задачу и задали

найти сумму элементов массива меньше своего номера

, или там задание повнятнее?

[lmikle]

A чего тут непонятного?
Значение элемента должно быть меньше его индекса в массиве.

Код:

var
  I : Integer;
  S : Integer;
begin
  S := 0;
  For I := Low(A) To High(A) Do
    If A[i] < I Then S := S + A[i];

[angvelem]

Сообщение от lmikle

A чего тут непонятного?...

Ну как бы неоднозначное задание. Я бы никогда не догадался, что вопрос может быть так поставлен.

[SmaZz]

Спасибо. Вроде то. Я не для себя спрашивал.