Viết chương trình nhập một 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++
program in_khac; Show 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àyHỏ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àyTrích nguồn : ... |