Program bt;

Uses Crt;

Var i, N, Min,k,t: Integer;

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

Begin Clrscr;

t:=0;

Write('Nhap do dai cua day so,N=');

Readln(N);

Writeln('Nhap cac phan tu cua day so:');

For i:=1 to N do Begin

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

Readln(a[i]);

End;

Min:=a[1];

For i:=2 to N do begin if Min>a[i] then Min:=a[i];

end;

Writeln('Gia tri Min:',Min);

write ('nhap so k : ');readln (k);

for i:=1 to n do

begin

if a[i] mod k=0 then t:=t+a[i];

end;

writeln ('tong cac so chia het cho k la : ',t);

readln

end.

program tinh;

uses crt;

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

      i, n, s, k, t, min  : integer;

begin

clrscr;

s := 0;

write('nhap so luong phan tu co trong day :');readln(n);

write('nhap gia tri so k :');readln(k);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] mod k = 0 then t := t + a[i] ;

end;

min := a[1];

for i := 2 to n do

begin

if a[i] < min then min := a[i] ;

end;

writeln('gia tri nho nhat trong day so tren la :', min);

writeln('tong cac so chia het cho so k trong day la :', t);

readln

end.