Дан массив натуральных чисел. Найти сумму элементов кратных данному N.

Код программы:

var

A:array [1..100] of integer;

N,i,m,summa:integer;

begin

summa:=0;

write('Введите количество элементов массива: ');

readln(m);

write('Введите число N: ');

readln(N);

writeln(#10'CФормирова...