viết chương trình in ra màn hinh các phần tử khác nhau có trong dãy n số nhập vào từ bàn phím

0 bình luận về “viết chương trình in ra màn hinh các phần tử khác nhau có trong dãy n số nhập vào từ bàn phím”

1. Tính và in ra tổng các số lẻ (dương)
   Program Tinh_tong_so_le;
   Uses CRT;
   Var i,n,S:integer;
   sl:boolean;
   Begin
   Clrscr;
   Write(‘Nhap so n:’);Readln(n);
   sl:=True;
   For i:=1 to n do
   Begin
   If sl=True then S:=S+i;
   sl:= not True;
   End;
   Writeln(‘Tong cua n so le la:’, S);
   Readln;
   End

   chúc bạn học tốt ⇒ điểm cao nhé ∛ !!!

   Bình luận

2. program khac_nhau;

   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.

   Bình luận