Nhập vào mảng A gồm 10 phần tử là số nguyên đếm các phần tử trong mảng, tính tổng các phần tử lẻ. Sắp xếp mảng tăng dần

0 bình luận về “Nhập vào mảng A gồm 10 phần tử là số nguyên đếm các phần tử trong mảng, tính tổng các phần tử lẻ. Sắp xếp mảng tăng dần”

1. Program BTT;
   Uses crt;
   Var A: array[1..10] of longint;
       i,dl,j,tg: longint;
   Begin
           Clrscr;

           For i:=1 to 10 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           dl:=0;
           For i:=1 to 10 do
                   If A[i] mod 2 = 1 then dl:=dl+A[i];

           Writeln(‘Tong cac phan tu le la: ‘,dl);
           Write(‘Sap xep mang dan la: ‘);

           For i:=1 to 9 do
                   For j:=i+1 to 10 do
                           If A[i]>A[j] then
                           Begin
                                   tg:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=tg;
                           End;
           For i:=1 to 10 do Write(A[i],’ ‘ );
           Readln
   End.

   Bình luận

2. Begin

   S:=0

   Write(‘Nhap day:’); readln(a[i]);

   For $i:=1$ to $10 $ do 

   If a[i] mod 2=1 then S:=S+a[i];

   Write(‘Tong là:’,S); 

   readln; end.

   Phần khai báo bạn tự viết nhé!

   Bình luận