Question

Viết chương trình(=ngôn ngữ Pascal ) thực hiện công việc nhập n phần tửbất kì có giá trị nguyên âm mang A(mạng một chiều) từ bàn phím và tính tổng các phần tử chẵn trong mảng A

Answer 1

Uses crt;
Var i,n,s:longint;
a: array [1..1000000] of longint;
Begin
Write('Nhap cac phan tu cua day so: '); readln(n);
For i:= 1 to n do
begin
Write('a[',i,'] = '); Readln(a[i]);
end;
For i:= 1 to n do
if a[i] mod 2 = 0 then
begin
s:=s+a[i];
end;
write('Tong cac so chan la: ',s);
Readln
end.