Những câu hỏi liên quan
Nguễn Hoàng Dương
Xem chi tiết
Nguyễn Gia Phong
Xem chi tiết
Trần Thu Ha
Xem chi tiết
Nguyễn Việt Nga
Xem chi tiết
Nguyễn Lưu Hà Phương
Xem chi tiết
đặng minh ngọc
Xem chi tiết
Lê Mai Hồng
Xem chi tiết
Đặng Minh quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:41

uses crt;

const fi='dulieu.inp'

var f1:text;

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

n,i,t1,t2:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t1:=0;

t2:=0;

for i:=1 to n do 

 begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

close(f1);

readln;

end.

Bình luận (0)
Nguyễn Linh Nhi
Xem chi tiết