program in_khac;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg:integer;
begin
clrscr;
write['Nhap n: ']; readln[n];
for i:=1 to n do
begin
write['Nhap so thu ',i,': ']; readln[A[i]];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write['Cac gia tri khac nhau la: '];
for i:=1 to n do
if A[i]A[i+1] then write[A[i],' '];
readln;
end.
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Create an account
Top 1 Viết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số này được cập nhật mới nhất lúc 2021-11-10 01:12:10 cùng với các chủ đề liên quan khác
viết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số này
Hỏi:
viết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số nàyviết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số này
Đáp:
diepbich:program in_khac;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg:integer;
begin
clrscr;
write[‘Nhap n: ‘]; readln[n];
for i:=1 to n do
begin
write[‘Nhap so thu ‘,i,’: ‘]; readln[A[i]];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write[‘Cac gia tri khac nhau la: ‘];
for i:=1 to n do
if A[i]A[i+1] then write[A[i],’ ‘];
readln;
end.
diepbich:program in_khac;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg:integer;
begin
clrscr;
write[‘Nhap n: ‘]; readln[n];
for i:=1 to n do
begin
write[‘Nhap so thu ‘,i,’: ‘]; readln[A[i]];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write[‘Cac gia tri khac nhau la: ‘];
for i:=1 to n do
if A[i]A[i+1] then write[A[i],’ ‘];
readln;
end.
diepbich:program in_khac;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg:integer;
begin
clrscr;
write[‘Nhap n: ‘]; readln[n];
for i:=1 to n do
begin
write[‘Nhap so thu ‘,i,’: ‘]; readln[A[i]];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write[‘Cac gia tri khac nhau la: ‘];
for i:=1 to n do
if A[i]A[i+1] then write[A[i],’ ‘];
readln;
end.
viết chương trình nhập vào dãy n số nguyên.In ra màn hình các giá trị khác nhau của dãy số này
Trích nguồn : ...