Mọi người giúp em bài này với ạ! Hạn chót mà em phải làm là ngày mai ạ!!! Em xin tặng 60 điểm cho người có câu trả lời chính xác và chương trình đó có thể chạy được ạ!!! Viết 1 chương trình thực hiện các công việc sau (ngôn ngữ lập trình Pascal): - Nhập vào số N ( N ∈ N* ) - Nhập vào 1 dãy số nguyên có N số hạng ( N ≤ 100 ) - Tìm giá trị nhỏ nhất của dãy số trên - Tính tổng các số chia hết cho số k trong dãy N ( k là số nguyên dương nhập từ bàn phím ) Em xin cảm ơn ạ!!!

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.