Viết chương trình pascal nhập vào dãy n số nguyên và in dãy đã nhập ra màn hình. Tính tổng các số chẵn của dãy số trên
Viết chương trình pascal nhập vào dãy n số nguyên và in dãy đã nhập ra màn hình. Tính tổng các số chẵn của dãy số trên
program sochan;
uses crt;
var a:array[1..50] of integer;
n,tongchan:integer;
begin
clrscr;
tongchan:=0;
writeln(‘Hay nhap so phan tu A’);readln(n);
for i:=1 to n do
begin if a[i] mod 2=0 then tong chan:=tongchan+a[i];
writeln(a[i])
end;
writeln(‘Tong cac so chan la ‘,tongchan);
readln;
end.
Cho mình câu trả lời hay nhất nha 😉
Program Hotboy;
Uses crt;
Var i,n:integer;
S:longint;
A:array[1..100] of integer;
Begin
clrscr;
S:=0;
Write(‘nhap n tu ban phim ‘);
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
S:=S+A[i];
Write(‘ Tong cac so la ‘,S);
Readln
End.