Tin học Lớp 8: Viết chương trình xác định số lần xuất hiện của các số nguyên chẵn và tính tổng các số nguyên đó trong dãy n số nguyên nhập từ bàn phím, giúp em giải bài này ạ, em cảm ơn thầy cô và các bạn nhiều.
Tin học Lớp 8: Viết chương trình xác định số lần xuất hiện của các số nguyên chẵn và tính tổng các số nguyên đó trong dãy n số nguyên nhập từ bàn phím, giúp em giải bài này ạ, em cảm ơn thầy cô và các bạn nhiều.
Uses crt;
Var A: array[1..1000] of longint;
n,i,d,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0; s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i] mod 2 = 0 then
Begin
inc(d);
s:=s+A[i];
End;
End;
Write(‘Tong: ‘,s);
Readln
End.