Cho dãy A gồm N số nguyên a1,a2,…an. Tìm vị trí các số dương trong dãy

0 bình luận về “Cho dãy A gồm N số nguyên a1,a2,…an. Tìm vị trí các số dương trong dãy”

1. program Min;
   uses crt;
   var A:array[1..10000] of integer;
       n,i:integer;
   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(‘Vi tri cac so duong la: ‘);
      for i:=1 to n do
      if A[i]>=0 then write(i:4);
      readln
   end. 

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var a:array[1..100] of integer;

   N,i: byte;

   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(i,’ ‘);

   Readln

   End.

   Bình luận