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 một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình dãy số vừa nhập và 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 một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình dãy số vừa nhập và có bao nhiêu giá trị là số chẵn
program Mang;
uses crt;
var A:array [1..500] of integer;
n,i,d: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Day vua nhap: ‘);
for i:=1 to n do
begin
write(A[i],’ ‘);
if A[i] mod 2=0 then d:=d+1;
end;
writeln;
write(‘Co ‘,d,’ so chan’);
readln
End.