cho một mảng số nguyên có N phần tử. Viết chương trình: 1) In ra các số nguyên dương có trong bảng 2) In ra các số nguyên âm có trong bảng 3) In ra vị trí của các số 0 có trong bảng

huutoanng

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

nuytapro20126

uses crt;

var a,b,c,d:array[1..100] of integer;

n,i,h,j,k:integer;

begin

clrscr;

write('nhap so phan tu: '); readln(n);

for i:= 1 to n do

begin

write('A[',i,']: ');

readln (a[i]);

end;

j:= 0;

write ('cac so nguyen duong la : ')

for i := 1 to n do if a[i] > 0 then write(a[i],' ');

writeln;

write ('cac so nguyen am la : ')

for i := 1 to n do if a[i] < 0 then write(a[i],' ');

writeln;

write ('vi tri cua cac so 0 la : ')

for i := 1 to n do if a[i] = 0 then write(i,' ');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

400669394618749

uses crt;
var i,n:longint; a:array[1..100000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n Do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
end;
write('Cac so nguyen duong co trong mang: ');
for i:=1 to n do if a[i]>0 then write(a[i],' '); writeln;
write('Cac so nguyen am co trong mang: ');
for i:=1 to n do if a[i]<0 then write(a[i],' '); writeln;
write('Vi tri cac so 0 co trong mang: ');
for i:=1 to n do if a[i]=0 then write(i,' ');
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho tam giác ABC ( AB<AC ).Vẽ phân giác AD của tam giác ABC ( D ∈ BC ).Trên cạnh AC lấy điểm E sao cho AE=AB a) chứng minh ΔADB= ΔADE b) chứng minh AD là đường trung trực của BE c) gọi F là giao điểm của AB và DE. chứng minh góc DBF=góc DEC và ΔBFD= ΔECD có vẽ hình nha bài 2 tìm giá trị nhỏ nhất của biểu thức sau (x+5) ²+(y-9) ²+2018

những mối đe doạ cuộc sống của ng dân trên các đảo thuooch châu Đại Dương?

Hình ảnh biển đảo Cô Tô sau trận bão được Nguyễn Tuân miêu tả như thế nào? Chỉ ra những đặc sắc về nghệ thuật của đoạn văn.

Hãy mô tả cách làm nhiễm điện cho một vật bằng cách cọ sát. Vật nhiễm điện có tính chất gì?

giải pt sau $\frac{7}{8x}$ - $\frac{x-1}{2x(x-2)}$ - $\frac{1}{8x-16}$ = $\frac{x-5}{4x^2-8x}$

cần làm gì để nâng cao văn hoá đọc và thu hút mọi người đến với sách và văn hoá đọc trong giai đoạn hiên nay? mọi người ai giỏi văn giúp em với ak

Cho một mảng số thực có N phần tử. Viết chương trình sắp xếp các phần tử của mảng theo thứ tự tăng dần

Nguyên nhân dẫn tới những thay đổi ở tuổi dậy thì ở nam và nữ(trong tuổi vị thành niên) là gì?Trong những biến đổi đó,biến đổi nào quan trọng cần lưu ý

Giải toàn bộ nha mọi người cảm ơn

Vẽ sơ đồ nguyên lí mạch điện gồm 1 nguồn điện 2 bóng đèn và 3 công tắc điện k1,k2, k3. Thỏa man yêu cầu sau - k1 đóng, bóng đèn 1 sáng bth. - k2 đóng, bóng đèn 2 sáng bth. - k3 đóng, bóng đèn 1 và 2 sáng yếu.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến