Tin học 1Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số chẵn và tổng các số chẵn 2Vieết chương trình nhập vào 1 dãy n số nguyên , in ra 15/07/2021 By Emery 1Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số chẵn và tổng các số chẵn 2Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số lẻ và tổng các số lẻ
Bài 1: program so_chan; uses crt; var A:array[1..1000] of integer; n,i,d,t:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); d:=0; t:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); if A[i] mod 2=0 then begin t:=t+A[i]; d:=d+1; end; end; if d=0 then write(‘Khong co so chan nao’) else for i:=1 to n do if A[i] mod 2=0 then write(A[i],’ ‘); writeln; write(‘Tong cac so chan la: ‘,t); readln; end. Bài 2: program so_le; uses crt; var A:array[1..1000] of integer; n,i,d,t:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); d:=0; t:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); if A[i] mod 2=1 then begin t:=t+A[i]; d:=d+1; end; end; if d=0 then write(‘Khong co so le nao’) else for i:=1 to n do if A[i] mod 2=1 then write(A[i],’ ‘); writeln; write(‘Tong cac so le la: ‘,t); readln; end. Trả lời
Đáp án: 1, program bai1; Var N,S,i:integer; A:array[1..1000] of integer; Begin write(‘Nhap so phan tu: ‘); readln(n); for i:=1 to n do readln(A[i]); S:=0; write(‘Cac so chan la: ‘); For i:=1 to n do if A[i] mod 2=0 then begin S:=S+A[i]; write(A[i],’ ‘); End; writeln; write(‘Tong cac so chan la: ‘,S); Readln; End. 2, program bai2; Var N,S,i:integer; A:array[1..1000] of integer; Begin write(‘Nhap so phan tu: ‘); readln(n); for i:=1 to n do readln(A[i]); S:=0; write(‘Cac so le la: ‘); For i:=1 to n do if A[i] mod 2<>0 then begin S:=S+A[i]; write(A[i],’ ‘); End; writeln; write(‘Tong cac so le la: ‘,S); Readln; End. Trả lời