tin học 11-tạo mảng A gồm n(<=100)số nguyên.hãy đếm số phần tử có giá trị âm và tích của chúng

0 bình luận về “tin học 11-tạo mảng A gồm n(<=100)số nguyên.hãy đếm số phần tử có giá trị âm và tích của chúng”

1. uses crt;
   var A:array[1..100] of integer;
       n,i,dem,tich: 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;
      tich:=1;
      for i:=1 to n do 
      if A[i]<0 then 
      begin
         dem:=dem+1;
         tich:=tich*A[i];
      end;
      writeln(‘So phan tu co gia tri am la: ‘,dem);
      writeln(‘Tich cua chung la: ‘,tich);
      readln
   end.

   Bình luận