Xin các bạn giỏi giúp mình ạ
BÀI TẬP VÀ THỰC HÀNH 3
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
Cc nè vinh, tao méc cô nè.
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,s,k,min,vtmin: longint;
Begin
Clrscr;
Write(‘Nhap n, k: ‘); Readln(n,k);
min:=maxlongint; s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i] mod k = 0 then s:=s+A[i];
If A[i]<min then
Begin
min:=A[i];
vtmin:=i;
End;
End;
Writeln(‘Cau 1: ‘,s);
Write(‘Cau 2: ‘,min,’ vi tri ‘,vtmin);
Readln
End.