DV

sắp xếp lại dãy N số thực theo nguyên tắc :

các số 0 ở đầu, sau đó là các số âm rồi đến các số dương

NT
13 tháng 5 2021 lúc 17:13

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);

for i:=1 to n do 

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

for i:=1 to n do 

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

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
IT
Xem chi tiết
KK
Xem chi tiết
21
Xem chi tiết
HB
Xem chi tiết
HA
Xem chi tiết
DT
Xem chi tiết
LN
Xem chi tiết
KT
Xem chi tiết
VT
Xem chi tiết