Cho N dãy a1… aN hãy tính các giá trị các số sau và cho biết có bao nhiêu số không âm

0 bình luận về “Cho N dãy a1… aN hãy tính các giá trị các số sau và cho biết có bao nhiêu số không âm”

1. program hotboy;

   uses crt;

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

   n,i,s: integer;

   begin

   clrscr;

   s:=0;

   write(‘nhap so nguyen duong 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 s:=s+1;

   write(‘co so so co gia tri khong am la’,s);

   readln

   end.

   Bình luận

2. Program Mang;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,n,dem: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           dem:=0;
           For i:=1 to n do
                   If A[i]>=0 then inc(dem);
           Write(‘Co ‘,dem,’ so khong am’);
           Readln
   End. 

   Bình luận