Question

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

Answer 1

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.( вот например кратный двум...аналогично) 

Answer 2

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.