Cho 1 dãy gồm N phần tử N<=19. Giá trị từng phần tử là số nguyên. Tính tổng các phần tử có giá trị âm của dãy.

0 bình luận về “Cho 1 dãy gồm N phần tử N<=19. Giá trị từng phần tử là số nguyên. Tính tổng các phần tử có giá trị âm của dãy.”

1. uses crt;
   var A:array[1..19] of integer;
       n,i:byte; s:integer;
   begin
      clrscr;
      write(‘Nhap n (n<=19): ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i]<0 then s:=s+A[i];
      end;
      write(‘Tong cac so am la: ‘,S);
      readln
   end.

   Bình luận

2. program Tin_hoc;

   uses crt;

   var i,n,tong:integer;

        a:array[1..1000] of integer;

   begin

   clrscr;

   write(‘Nhap n dieu kien n <=19 : ‘);readln(n);

   while n>19 then 

   begin

   clrscr;

   tong:=0;

   write(‘Nhap lai : ‘);

   readln(a[i])

   end; 

   for i:= 1 to n do 

   begin

   write(‘a[‘,i,’]=’);

   readln(a[i]);

   if a[i] < 0 then tong:= tong+a[i]

   end;

   writeln(‘Tong cac phan tu am trong mang la: ‘,tong);

   readln;

   end.

   Bình luận