Tin học viết chương trình nập 1 mãng gồm n phần tử( n<50 ), in ra mãng vừa nhập. Kiểm tra tính tổng và in các phần tử chẵn của mãng 19/07/2021 By Raelynn viết chương trình nập 1 mãng gồm n phần tử( n<50 ), in ra mãng vừa nhập. Kiểm tra tính tổng và in các phần tử chẵn của mãng
program BT; uses crt; var A:array [1..50] of byte; n,i,T: integer; Begin clrscr; write(‘Nhap so phan tu: ‘); readln(n); for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]); end; write(‘Mang vua nhap: ‘); for i:=1 to n do write(A[i],’ ‘); writeln; write(‘Cac phan tu chan: ‘); for i:=1 to n do if A[i] mod 2=0 then begin write(A[i],’ ‘); T:=T+i; end; writeln; write(‘Tong cac phan tu chan = ‘,T); readln End. Trả lời
program bai_tap_mang; uses crt; var A:array[1..50] of integer; n,i,d:byte; 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 d:=0; t:=t+A[i]; end; end; write(‘Mang vua nhap la: ‘); for i:=1 to n do write(A[i],’ ‘); writeln; if d=0 then write(‘Khong co phan tu chan’) else begin write(‘Cac so chan trong mang la: ‘); for i:=1 to n do if A[i] mod 2=0 then write(A[i],’ ‘); writeln; write(‘Tong cac phan tu chan la: ‘,t); end; readln; end. Trả lời