tin học 11

[trangvip75]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

câu hỏi :
cho mảng A gồm n phần tử thuộc kiểu real. Tính tổng các phần tử dương trong dãy

 

[tpgionhe]

Program Tinh_tong;
Uses crt;
Var a:array[1..100] of real;
n,i,s:integer;
BEGIN
clrscr;
write('Nhap vao n phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu ',i,': '); readln(a);
end;
s:=0;
for i:=1 to n do
begin
if a>0 then s:=s+a;
end;
write('Tong cac phan tu duong trong mang=',s);
readln;
END.

>>> Chúc bạn học tốt