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 câu trả lời

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.

Câu hỏi trong lớp Xem thêm