Напишите программу, которая заполняет массив случайными целыми числами, вводит с клавиатуры целое число N и копирует в новый массив все числа из исходного массива, для которых сумма значений всех цифр равна N.

const nmax=100;

function summa (a:integer) : integer;

var b, s:integer;

begin

b:=abs (a);

s:=0;

while b>0 do

begin

s:=s+b mod 10;

b:=b div 10;

end;

result:=s;

end;

var a:array[1 ... nmax] of integer;

m, n, i, k:integer;

begin

randomize;

repeat

write ('Введите размер массива от 2 до ', nmax,' m=');

readln (m);

until m in [2 ... nmax];

writeln ('Массив');

for i:=1 to m do

begin

a[i]:=-99+random (1099);

write (a[i]:4);

end;

writeln;

repeat

write ('Введите искомую сумму цифр n>0 n=');

readln (n);

until n>0;

k:=0;

for i:=1 to m do

if summa (a[i]) = n then

begin

write (a[i]:4);

k:=1;

end;

if k=0 then write ('Нет чисел с такой суммой цифр');

end.