Tin học viết chương trình nhập vào một dãy số .tính tổng các số chẵn trong dãy số chẵn trong dãy số vừa nhập. 19/07/2021 By Harper viết chương trình nhập vào một dãy số .tính tổng các số chẵn trong dãy số chẵn trong dãy số vừa nhập.
program phuongt;uses crt; var A: array[1..500] of integer; i, s, n: integer;begin clrscr; write(‘Nhap n = ‘); readln(n); s:=0; for i:=1 to n do begin write(‘A[‘, i, ‘] = ‘); readln(A[i]); if A[i] mod 2 = 0 then s:=s+A[i]; end; write(‘Tong cac so chan trong day: ‘, s); readlnend. Trả lời
program Mang;uses crt;var a: array[1..10000] of integer; n,i,tong: integer;begin clrscr; write(‘Nhap n= ‘);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 tong:=tong+a[i]; write(‘Tong cac so chan: ‘,tong); readln;end. Trả lời