viết chương trình nhập mảng n số nguyên sau đó in ra màn hình tổng các số lớn hơn 5 và nhỏ hơn 100
HELP ME! (SẮP KIỂM TRA RỒI)
viết chương trình nhập mảng n số nguyên sau đó in ra màn hình tổng các số lớn hơn 5 và nhỏ hơn 100
HELP ME! (SẮP KIỂM TRA RỒI)
var A: array [1..1000] of integer;
n,x,i : integer;
begin
x:=0;
write(‘do dai cua day la: n=’);readln(n);
while n <=0 then begin
write(‘nhap lai n=’);readln(n)
end;
for i:=1 to n do begin
readln(A[i]);
if (A[i]>5) or (A[i]<100) then x:=x+A[i]
end;
writeln(‘tong cac so lon hon 5 va nho hon 100 la’,x);
readln
end.
program tinh_tong;
uses crt;
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if (A[i]>5) and (A[i]<100) then t:=t+A[i];
end;
write(‘Tong cac so lon hon 5 va be hon 100 trong mang la: ‘,t);
readln;
end.