Viết chương trình tạo 1 mảng số nguyên A có chỉ số đầu là 1, chỉ số cuối là 50. N là số phần tử của mảng nhập từ bàn phím. Tính tổng các phần tử chẵn có trong mảng.
Giúp mình giải chương trình này ạ. Thank you so much ????????
Viết chương trình tạo 1 mảng số nguyên A có chỉ số đầu là 1, chỉ số cuối là 50. N là số phần tử của mảng nhập từ bàn phím. Tính tổng các phần tử chẵn có trong mảng.
Giúp mình giải chương trình này ạ. Thank you so much ????????
program ct;
uses crt;
var i,n,S:integer;
A:array[1..50] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
if A[i] mod 2=0 then S:=S+A[i];
writeln(‘tong cac so chan la:’,S);
readln
end.
program ct;
uses crt;
var i,n,S:integer;
A:array[1..50] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
if A[i] mod 2=0 then S:=S+A[i];
writeln(‘tong cac so chan la:’,S);
readln
end.