Дан массив из 20 натуральных чисел. Составить программу суммы элементов, кратных данному числу d.

Pascal ABC

Const

n=20;

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

var i, d, s:integer;

begin

s:=0;

writeln ('Введите число d');

readln (d);

writeln ('Введите массив');

for i:=1 to n do begin

read (a[i]);

if a[i] mod d = 0 then s:=s+a[i];

end;

writeln (s);

end.

Второй вариант выполнения:

Program num1;

Uses crt;

Var

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

i, d, n, s : integer;

Begin

clrscr;

s:=0;

write ('D='); readln (d);

write ('N='); readln (n);

for i:=1 to n do

readln (a[i]);

for i:=1 to n do

if (a[i] MOD d) = 0 then s:=s+a[i];

writeln ('S=', s);

End.