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 với đang kiểm tra huhu
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
By Nevaeh
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.
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.