Дан массив А[1..53] (-15, 40). Нужно найти количество и сумму элементов массива А,...

Question

Дан массив А[1..53] (-15, 40). Нужно найти количество и сумму элементов массива А, которые делятся на 7 и являются отрицательными. На Паскале!

Answer 1

Const
  n = 53;

var
  x: array[1..n] of integer;
  i, t, k, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    t := Random(56) - 15;
    x[i] := t;
    Write(t:4);
    if (t < 0) and (t mod 7 = 0) then begin k := k + 1; s := s + t end
  end;
  Writeln;
  Writeln(' Найдено элементов- ', k, ', их сумма равна ', s)
end.

Тестовое решение:
Элементы массива
  -8  21 -13   0  -9  28   9  28  23  -2   7  25  26  40 -11   3   8  -6  -1   4  14 -13  10   4  -6   8  19   4  26  33  38  -9  -4  34  36  11   9  -7  21  31  -4 -14 -12  27   7 -12  23  29 -14  22   5  22  40
 Найдено элементов- 3, их сумма равна -35