Viết chương trình nhập vào một mảng gôm n số nguyên (<=100) rồi thực hiện công việc sau: tính tổng các phần tử giá trị dương của chúng
2 câu trả lời
uses crt;
var a : array[1..100] of integer;
i, s, n : integer;
begin
clrscr; s := 0;
write('Nhap so phan tu : '); readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' : '); readln(a[i]);
if a[i] > 0 then s := s + a[i];
end;
writeln('Tong phan tu duong : ', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
