Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Thanh Triều

viết ct n nhập từ bàn phím in ra màn hình các chữ số lớn hơn 0 và bé hơn 0

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

uses crt;

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

i,n: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]>0 then write(a[i]:4);

writeln;

for i:=1 to n do

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

readln;

end.


Các câu hỏi tương tự
Trần Thanh Triều
Xem chi tiết
Dan Ngothi
Xem chi tiết
Lưu Thùy Linh
Xem chi tiết
Trần Đăng Trọng
Xem chi tiết
Tali
Xem chi tiết
Yến Ngọc
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Đỗ vantinh
Xem chi tiết