Одномерные массивы.

Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.

Var

s, i, k:integer;

m:array[1 ... 20]of integer;

begin

write ('Введите k: ') ;

readln (k) ;

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

for i:=1 to 20 do

begin

m[i]:=random (20) ;

write (m[i],' ') ;

if m[i] mod k=0 then s:=s+m[i];

end;

writeln;

writeln ('Ответ: ', s) ;

end.

Uses crt;

Const n = 10;

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

i: byte;

sum: integer;

Begin

ClrScr;

For i:=1 to n do

Begin

Write ('a[', i,'] = ') ;

ReadLn (a[i]) ;

End;

ClrScr;

For i:=1 to n do

write (a[i],' ') ;

WriteLn;

For i:=1 to n do

If a[i] mod 2 = 0 then inc (sum, a[i]) ;

WriteLn ('сумма элементов, кратных двум: ', sum) ;

ReadKey

End. (вот например кратный двум ... аналогично)