Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khue Tran

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 102 và nhỏ hơn 1.5*104

Khue Tran
7 tháng 4 2021 lúc 9:18

giúp với ạ

 

Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 13:31

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.


Các câu hỏi tương tự
taf.amp
Xem chi tiết
taf.amp
Xem chi tiết
Thọ Lê Đức
Xem chi tiết
Khue Nguyen
Xem chi tiết
my trần
Xem chi tiết
Mai Phương Lê
Xem chi tiết
42. Hồ Đăng Quốc Trung....
Xem chi tiết
Vàng Phan Thanh
Xem chi tiết
42. Hồ Đăng Quốc Trung....
Xem chi tiết