Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đặng Minh quân

Cho dãy gồm N số tự nhiên a1,a2,a3...aN. viết chương trình in ra tổng các số âm,số dương của Dữ liệu vào cho bởi tệp DULIEU.INP có cấu trúc - dòng đầu tiên chứa số N - dòng thứ 2 chứa các số a1,a1,s3...aN các số cách nhau ít nhất 1 kí tự trống

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.


Các câu hỏi tương tự
Mộng Chúc
Xem chi tiết
26-Do Thanh Trung
Xem chi tiết
Louis Kai
Xem chi tiết
Đubaii Tin
Xem chi tiết
NGUYỄN THỊ MỸ LINH
Xem chi tiết
Bo Bong
Xem chi tiết
Ngọc Hồng
Xem chi tiết
Đặng Công
Xem chi tiết
Phan Thị Thùy Ngân
Xem chi tiết