Viết chương trình sử dụng biến mảng nhập vào 1 dãy các số thực.Tính tổng các số chẵn của dãy rồi in kết quả ra màn hình?
Viết chương trình sử dụng biến mảng nhập vào 1 dãy các số thực.Tính tổng các số chẵn của dãy rồi in kết quả ra màn hình?
By Katherine
uses crt;
var a; array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln (‘tong la: ‘,s);
readln;
end.
var a:array[1..100] of longint;
n,i,s:longint;
begin
write(‘nhap so phan tu: ‘);readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
write(‘tong cac so chan la: ‘,s);
readln;
end.
HELO!!! 2K7 🙂