Cho dãy A thuộc N số nguyên a1, a2, -aN Trình bày thuật toán bém số lượng các số là bội số của 2 27/08/2021 Bởi Valerie Cho dãy A thuộc N số nguyên a1, a2, -aN Trình bày thuật toán bém số lượng các số là bội số của 2
program tinhtsoboi2; uses crt; var i,n,s:real; a:array[1..100] of integer; begin clrscr; s:=0; writeln(‘nhap so phan tu cua day so A’,n); readln(n); for i:= 1 to n do begin write(‘A[‘,i,’]=’);readln(A[i]); end; if a[i] mod 2 then s:=S+1; writeln(‘so luong cac so trong day la boi cua 2 la’,s); readln end. Bình luận
program tinhtsoboi2;
uses crt;
var i,n,s:real;
a:array[1..100] of integer;
begin
clrscr;
s:=0;
writeln(‘nhap so phan tu cua day so A’,n); readln(n);
for i:= 1 to n do
begin
write(‘A[‘,i,’]=’);readln(A[i]);
end;
if a[i] mod 2 then
s:=S+1;
writeln(‘so luong cac so trong day la boi cua 2 la’,s);
readln
end.