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.
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.