help em :< Chỉ "pascal" thôi nha, bây h em cần pascal . Viết chương trình nhập mảng A và số k, Đếm và tính tổng các số ko chia hết cho k, chia hết cho k và xuất ra màn hình
help em :< Chỉ "pascal" thôi nha, bây h em cần pascal . Viết chương trình nhập mảng A và số k, Đếm và tính tổng các số ko chia hết cho k, chia hết cho k và xuất ra màn hình
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,k,d1,d2:integer;
S1,S2:longint;
begin clrscr;
write(‘Nhap so phan tu n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
write(‘Nhap so k: ‘); readln(k);
S1:=0; S2:=0;
for i:=1 to n do
if A[i] mod k=0 then
begin
inc(d1);
S1:=S1+A[i];
end
else
begin
inc(d2);
S2:=S2+A[i];
end;
writeln(‘Co ‘,d1,’ so chia het cho ‘,k);
writeln(‘Tong la: ‘,S1);
writeln(‘Co ‘,d2,’ so khong chia het cho ‘,k);
writeln(‘Tong la: ‘,S2);
readln;
end.
Học tốt!
Uses crt;
var a:array[1..100] of integer;
k,t,m,n,d,i: integer;
begin
clrscr;
writeln(‘Nhap so phan tu mang:’); readln(n);
for i:= 1 to n do begin
writeln(‘nhap so thu’,i,’:’); readln(a[i]); end;
writeln(‘Nhap k=’); readln(k);
for i:= 1 to n do
if a[i] mod k = 0 then begin s:=s+a[i]; d:=d+1; end
else t:=t+a[i]; m:=m+1;
writeln(‘Co’,d,’so chia het cho k va tong la:’,s);
writeln(‘Co ‘,m,’ so khong chia het cho k va tong la:’,t);
Readln;
end.