Tin học Viết chương trình nhập vào số n nhập giá trị trong dãy số in ra màn hình dãy số vừa nhập in ra màn hình dãy số tăng dần 16/07/2021 By aikhanh Viết chương trình nhập vào số n nhập giá trị trong dãy số in ra màn hình dãy số vừa nhập in ra màn hình dãy số tăng dần
Program nhap_so_nguyen; Uses CRT; Var N,i:integer; Begin; Clrscr; Writeln(‘Hay nhập số nguyên N:’);Readln (N); While i>N do Begin i:=i+1; Writeln (i,#32); End; Readln; End. Trả lời
program ct; ues crt; var A:array [1..1000] of integer; i,j,n,tg:integer; begin clrscr; write(‘Nhap so phan tu n: ‘); readln(n); for i:=1 to n do begin writeln(‘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; writeln(‘Day so sap xep theo thu tu tang dan la: ‘); for i:=1 to n do write(A[i]:3); readln; end. Nhớ cho minmochi880 ctlhn nhé ! Trả lời