Cho một dãy gôm n phần tử. Hãy nhập vào từ bàn phím số phần tử và giá trị từng phần tử. Hãy tính tổng các phần tử dương( âm) của dãy
Quảng cáo
1 câu trả lời 350
Uses crt;
Var A: array[1..15] of longint;
i,s,t: longint; n: byte;
Begin
Clrscr;
Write('Nhap so luong phan tu: '); Readln(n);
s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
If A[i]>0 then s:=s+A[i];
End;
Write('Tong cac phan tu duong trong day la: ',s); Readln;
t:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
If A[i]<0 then t:=t+A[i];
End;
Write('Tong cac phan tu am trong day la: ',t);
Readln
End.
Hồ Nhật Tú Trinh
· 4 năm trước
Bạn ơi . Bạn có chắc đúng hông. Do mai mình ktra học kì rồi mà mình không hiểu lắm
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86336
Gửi báo cáo thành công!
