Дан массив А[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