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ố âm và các chữ số dương

 

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

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
Trần Đăng Trọng
Xem chi tiết
Dan Ngothi
Xem chi tiết
Ngọc hà
Xem chi tiết
Đỗ vantinh
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết
KenShi
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Phúc Trần
Xem chi tiết