In ra màn hình dãy số với các số âm ở đầu dãy và các số dương ở cuối dãy và số 0

Đạt Điệu Đà Hỏi từ APP VIETJACK

đã hỏi trong Lớp 8 Tin học

· 16:07 16/03/2022

In ra màn hình dãy số với các số âm ở đầu dãy và các số dương ở cuối dãy và số 0 ở giữa dãy

Trả Lời (+5 điểm)

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

1 câu trả lời 279

•?????✌?✨

4 năm trước

uses crt;
var a,b,c,d:array[1..100]of integer;
n,i,dem,dem1,dem2:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dem:=0;
dem1:=0;
dem2:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end
else if a[i]=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end
else begin
inc(dem2);
d[dem2]:=a[i];
end;
for i:=1 to dem do
write(b[i]:4);
for i:=1 to dem1 do
write(c[i]:4);
for i:=1 to dem2 do
write(d[i]:4);
readln;
end.

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

1 câu trả lời 279

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 8