viết chương trình nhập vào n số nguyên từ bàn phím(n<=100). TÍNH VÀ ĐƯA RA MÀN HÌNH CÁC KẾT QUẢ SAU A. Số lượng số chẵn trong mảng b. tổng các số chẵn trong m ảng
viết chương trình nhập vào n số nguyên từ bàn phím(n<=100). TÍNH VÀ ĐƯA RA MÀN HÌNH CÁC KẾT QUẢ SAU A. Số lượng số chẵn trong mảng b. tổng các số chẵn trong m ảng
[1]=12
A[2]=3 A[3]=5
A[4>10 A [5] =11
thì chương trinh đưa ra thông báo:
So luong so chan: 2
So luong so le: 3
So luong so nguyen to: 3
Trong trường hợp số phần tử nhập vào và giá trị các phần tử của dãy A không thỏa mãn điều kiện thì chương trình sẽ có thông báo mời nhập lại. Chẳng hạn, trong các trường hợp sau đây:
A[1] = 12
A [ 2] = 2000 thì chương trình đưa ra yêu cầu Moi nhap lai A[2]= 800 A[3 = 17
A [ 4] = -1500 thì chương trình đưa ra yêu cầu Moi nhap lai A[4]= -200 A[5] =31 A [ 6 = 5 A[7 = 350
Kết quả chương trình đưa ra thông báo:
So luong so chan: 4
So Luong so le: 3
So luong so nguyen to: 3
uses crt;
var i,n,t,d:longint; a:array[1..100000]of longint;
begin
clrscr;
write(‘n (n<=100)=’);readln(n);
for i:=1 to n Do
begin
write(‘a[‘,i,’]=’);readln(A[i]);
if a[i] mod 2=0 then begin inc(d); inc(t,a[i]); end;
end;
writeln(‘A.’,d);
writeln(‘B.’,t);
readln
end.