Mn giúp em bài này vs ạ 1/ Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Tính tổng và in ra màn hình các số âm có giá trị lẻ t rong mảng 2/ Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Đếm và đưa ra màn hình số lượng các phần tử chia hết cho k vừa có giá trị chẵn trong dãy.
2 câu trả lời
`1)`
var i,n,s: integer;
a:array[1..100] of integer;
begin
writeln('Nhap n: '); read(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
writeln('Cac so le: ')
s:=0;
for i:=1 to n do
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln('- Tong so le: ',s);
for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;
if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');
readln
end.
`2)`
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('Tong cac so chia het cho ',k,' la: ',t);
readln;
end.
Câu 1
uses crt;
var n,i,s:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('Nhap so thu ',i,': ');readln(a[i]);
if (a[i] mod 2=-1) and (a[i]<0) then s:=s+a[i];
end;
write('Cac so am co gia tri le: ');
for i:=1 to n do if (a[i] mod 2=-1) and (a[i]<0) then begin write(a[i],', ') end;
writeln('Tong cac so am co gia tri le: ',s);
readln
end.
Câu 2
var n,i,s:integer;
a:array[1..100] of integer;
begin
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
for i:=1 to n do begin
write('Nhap so thu ',i,': ');readln(a[i]);
if (a[i] mod 2=0) and (a[i] mod k=0) then s:=s+1;
end;
writeln('Co ',s,' phan tu chia het cho k vua co gia tri chan trong day');
write('so luong cac phan tu chia het cho k vua co gia tri chan trong day: ');
for i:=1 to n do if (a[i] mod 2=0) and (a[i] mod k=0) then write(a[i],', ');
readln
end.
