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
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
