MN ơi lm hộ mk vs chiều mik nộp r. Bt1.nhập vào dãy số tự nhiên tính tổng các số dương và âm

0 bình luận về “MN ơi lm hộ mk vs chiều mik nộp r. Bt1.nhập vào dãy số tự nhiên tính tổng các số dương và âm”

1. uses crt;
   var A:array[1..1000] of integer;
       n,i,sd,sa:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i]>=0 then sd:=sd+A[i] else sa:=sa+A[i];
      end;
      write(‘Tong duong la: ‘,sd);
      writeln;
      write(‘Tong am la: ‘,sa);
      readln
   end.

   Bình luận