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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận