Viết chương trình tạo Mảng A có thể chứa tối đa 100 số nguyên, nhập vào N (N <= 100) số nguyên (âm,dương) vào Mảng A đó, và Nhập 1 số nguyên K bất kỳ.
Câu 1: Tính tổng giá trị các phần tử của Mảng là bội số của số nguyên K.
Câu 2: Tìm phần tử có giá trị nhỏ nhất của Mảng, đưa ra màn hình chỉ số và giá trị của phần tử tìm được
Câu 1:
Program hotrotinhoc_hoc24;
var i,n,k,t: integer;
a: array[1..32000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Nhap so nguyen k : '); readln(k);
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
write('Tong gia tri cac phan tu cua mang la boi cua so nguyen K la:',t);
readln
end.
Câu 2:
Program hotrotinhoc_hoc24;
var i,n,min: integer;
a: array[1..32000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=32000;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('Chi so cua gia tri nho nhat la :');
for i:=1 to n do if a[i]=min then write(i,' ');
writeln;
writeln('Gia tri nho nhat la : ',min);
readln
end.
