Delphi. получить сумму тех чисел которые кратны 5 и имеют отрицательное значение

[Crabobass]

Привет народ. Вот собственно задача: Даны целые числа А1..А15, получить сумму тех чисел которые кратны 5 и имеют отрицательное значение. Задать массив А в виде типизированной константы. Сформировать массив С из значений зад. массива А.


Я так понял что вводить числа нужно вручную в StringGrid. Не дружу с циклами и массивами, поэтому многое не понятно. Как реализовать проверку кратности понятно. Нужно использовать MOD. Тоже самое с проверкой на отрицательность чисел... Но там нужны циклы...и потом наверное через цикл записывать нужные числа в массив С. Народ, помогите пожалуйста. Нужно до завтра. А времени уже и нет разбираться. Если можно код. На вас надежда.

[Hacker19_90]

Вы для начала сами попробовать не хотите?
Сделайте хоть какой-нибудь набросок! Ну а мы вам поможем!

[Crabobass]

понял...щас попробую

[veniside]

const
  A: array[1..15] of Integer =
     (-15, -10, -5, 0, 10, 15, 20, 33, 44, 55, -33, -45, -0, -5, 32);

type
  tC = array[1..15] of Integer;

var
  C: tC;
  cc: Integer;

function sum(): Integer;
var
  i: Integer;
begin
  cc := 1;
  result := 0;
  for i := 1 to 15 do begin
    //
    if (A[i] < 0) and (0 = (A[i] mod 5)) then begin
      //
      result := result + A[i];
      C[cc] := A[i];
      Inc(cc);
    end;
  end;
end;

[Crabobass]

Спасибо большое!!! Только вот всё равно выложу свои задумки...что б знали что ваши старания не зря.