Tin học Viết phương trình

[Dương Võ]

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

 

[ngọcduy12134]

1, uses crt;
var i: byte;
a: array[1..100] of integer;
s: real;
begin
clrscr;
s:=0;
for i:=1 to 100 do
if a mod 2 <> 0 then s:= s+ a;
writeln(' tong cac so chan la=',s:0:2);
readln;
end.