Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Bài 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=1;
for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];
write('Tich la: ',t);
readln
end.
