Viết chương trình nhập vào từ bàn phím dãy a gồm n phần tử a1,a2,a3,…,aN. Tính và đưa ra màn hình tổng các phần tử lớn hơn 5 và nhỏ hơn 10. Giúp e

0 bình luận về “Viết chương trình nhập vào từ bàn phím dãy a gồm n phần tử a1,a2,a3,…,aN. Tính và đưa ra màn hình tổng các phần tử lớn hơn 5 và nhỏ hơn 10. Giúp e”

1. Uses crt;

   Var A:Array[1..100000] of longint;

          i, n, pt: integer;

   Begin

        Clrscr;

        Write(‘Nhap n = ‘); readln(n);

        For i:=1 to n do 

            Begin

                Write(‘A[‘,i,’]=’);

                Readln(A[i]);

            End;

        pt:=0;

        For i:=1 to n do if (A[i]>5) and (A[i]<10) then inc(pt,a[i]);

        Writeln(‘Tong la: ‘,pt:7:2);

   Readln

   End.

   Bình luận

2. Program bai_tap;

   Uses crt;

   Var A :  array [1..150] of integer;

                  S,i,n: integer;

   Begin 

   Write (‘nhap n=’); 

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’=’);

   Readln (A[i]);

   end;

   S:=0;

   For i:=1 to n do 

   If (A[i]>5) and (A[i]<10) then 

   S:=S+A[i];

   Writeln (‘Tong cac phan tu lon hon 5 va nho hon 10 la:’, S);

   Readln 

   End.

   Bình luận