Question

Viết chương trình nhập vào một mảng n số nguyên bất kỳ (10 <m<50) đếm và in ra các số nguyên không âm ( mỗi số cách nhâu ít nhất 1 khoáng trắng )

Answer 1

var n,i,d:integer;
a:array[1..100] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin write('Nhap so thu ',i,': ');
readln(a[i]);
if a[i]>0 then d:=d+1; end;
writeln('Co ',d,' so nguyen khong am: ');
for i:=1 to n do
if a[i]>0 then write(a[i],' ');
end.