Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên.
Xuất giá trị mảng ra màn hình
Xuất ra màn hình các phần tử là chẵn(N<=100)
Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên. Xuất giá trị mảng ra màn hình Xuất ra màn hình các phần tử là chẵn(N<=1
By Arianna
uses crt;
var b: array[1..100] of integer;
i,n: integer;
begin
write (‘nhap so luong pt: ‘); readln (n);
for i:=1 to n do readln (b[i]);
write (‘day vua nhap: ‘);
for i:=1 to n do write (b[i],’ ‘);
write (‘cac so chan: ‘);
for i:=1 to n do if b[i] mod 2=0 then write (b[i],’ ‘);
readln;
end.
uses crt;
var B:array[1..100] of longint;
n,i:integer;
begin
clrscr;
write(‘Nhap so luong phan tu (n<=100): ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(B[i]);
end;
write(‘Day so vua nhap: ‘);
for i:=1 to n do write(B[i],’ ‘); writeln;
write(‘Cac phan tu chan: ‘);
for i:=1 to n do if B[i] mod 2=0 then write(B[i],’ ‘);
readln;
end.