Mọi người ơi giúp em.
Tạo mảng B gồm phần tử là các số nguyên hãy liệt kê ra màn hình các số nguyên dương có trong mảng B.
Mọi người ơi giúp em.
Tạo mảng B gồm phần tử là các số nguyên hãy liệt kê ra màn hình các số nguyên dương có trong mảng B.
program phuongt;
uses crt;
var B: array[1..500] of integer;
n, i: integer;
begin
clrscr;
write(‘Nhap n phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘B[‘,i,’] = ‘); readln(B[i]:4);
end;
write(‘Cac phan tu duong trong mang B la: ‘);
for i:=1 to n do if B[i]>0 then write(B[i]);
readln
end.
program soduong;
uses crt;
var B:array[1..10000] of integer;
n,i,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu : ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG B:’);
for i:=1 to n do
begin
write(‘B[‘,i,’] = ‘);
readln(B[i]);
end;
d:=0;
write(‘Cac phan tu duong co trong mang B la: ‘);
for i:=1 to n do
if A[i]>0 then
begin
write(B[i],’ ‘);
d:=d+1;
end;
if d=0 then write(‘Khong co. Xin loi!’);
readln
end.