Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím .in ra màn hình có bao nhiêu giá trị là số chẵn
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím .in ra màn hình có bao nhiêu giá trị là số chẵn
program ct;
uses crt;
var i,n,d:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
d:=0;
for i:=1 to n do
if A[i] mod 2=0 then d:=d+1;
writeln(‘co so chan la:’,d);
readln
end.
uses crt;
var a : array[1..100] of integer;
dem,i,n : integer;
begin clrscr;
write(‘Nhap so phan tu cua mang :’); readln(n);
for i:=1 to n do begin
write(‘Nhap a[‘,i,’]=’); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 = 0 then dem:=dem+1;
write(‘Co’,dem,’gia tri so chan trong mang ‘);
readln
end.