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
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
By Serenity
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.
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.