Question

Viết chương trình nhập vào 20 số nguyên bất kì. Tính và in ra màn hình các kết quả sau:

- Dãy số nguyên vừa nhập vào

- Các số nguyên dương trong dãy số vừa nhập

- Đếm trong dãy số vừa nhập có bao nhiêu số có giá trị >10

Answer 1

uses crt;
var a:array[1..20]of integer;
i,dem:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------xuat-day-------------------------}
writeln('day ban vua nhap la:');
for i:=1 to 20 do
write(a[i]:4);
{-----------------------------xuat-cac-so-nguyen-duong-----------------}
writeln;
writeln('cac so nguyen duong trong day la:');
for i:=1 to 20 do
if a[i]>0 then write(a[i]:4);
{------------------------dem-trong-day-co-bao-nhieu-so-lon-hon-10-----------------}
dem:=0;
for i:=1 to 20 do
if a[i]>10 then inc(dem);
writeln('so gia tri lon hon 10 trong day la: ',dem);
readln;
end.

Answer 2

uses crt;
var a:array[1..20]of integer;
i,dem:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------xuat-day-------------------------}
writeln('day ban vua nhap la:');
for i:=1 to 20 do
write(a[i]:4);
{-----------------------------xuat-cac-so-nguyen-duong-----------------}
writeln;
writeln('cac so nguyen duong trong day la:');
for i:=1 to 20 do
if a[i]>0 then write(a[i]:4);
{------------------------dem-trong-day-co-bao-nhieu-so-lon-hon-10-----------------}
dem:=0;
for i:=1 to 20 do
if a[i]>10 then inc(dem);
writeln('so gia tri lon hon 10 trong day la: ',dem);