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

Дан массив А[1..53] (-15, 40). Нужно найти количество и сумму элементов массива А, которые делятся на 7 и являются отрицательными. На Паскале!
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы