tin học 8 viết chương trình pascal

[Võ Phương Hiền]

[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.

1/ Viết chương trình tính tổng số nguyên dương trong dãy số
2/ Viết chương trình tính tổng các số chẵn trong dãy số
GIÚP MÌNH VỚI NHÁ MAI MÌNH KIỂM TRA RỒI!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[Lê Thanh Huy]

var n,i,t,s:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
end;
for i:=1 to n do
if a>=0 then t:=t+a;
write('tong cac so duong la:',t);
for i:=1 to n do
if a mod 2=0 then
s:=s+a;
write('tong chan la:',s);
end.

 

[Nguyễn Thánh Tiền]

var n,i,t,s:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
end;
for i:=1 to n do
if a>=0 then t:=t+a;
write('tong cac so duong la:',t);
for i:=1 to n do
if a mod 2=0 then
s:=s+a;
write('tong chan la:',s);
end.

1 vòng for thôi em\

 

[Võ Phương Hiền]

1 vòng for thôi em\

vậy thì sửa lại chương trình giùm em chút

 

[Nguyễn Thánh Tiền]

vậy thì sửa lại chương trình giùm em chút

var n,i,t,s:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
end;
for i:=1 to n do
begin
if a>=0 then t:=t+a;

if a mod 2=0 then
s:=s+a;
end;
write('tong cac so duong la:',t);
write('tong chan la:',s);
end.