Question

Viết chương trình nhập vào mảng số nguyên có tối đa 50 phân tử

Nhập giá trị cho các phần tử

In giá trị các phần tử lẻ ra màn hình

Cho biết tổng các phân tử lớn hơn 10² và nhỏ hơn 1.5*10⁴

Answer 1

giúp với ạ

 

Answer 2

uses crt;

var a:array[1..50]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if (100<a[i]) and (a[i]<15000) then t:=t+a[i];

writeln(t);

readln;

end.