Tin học Cho N thuộc Z (N<10^6). mảng A gồm N phần tử (a1,a1,..an). Nhập từ bàn phím đưa ra phần tử chẵn đầu tiên trong mảng nếu không có thông báo " không có 22/07/2021 By Ayla Cho N thuộc Z (N<10^6). mảng A gồm N phần tử (a1,a1,..an). Nhập từ bàn phím đưa ra phần tử chẵn đầu tiên trong mảng nếu không có thông báo " không có có phân tử chẵn có trong mảng
program sochan; uses crt; var A:array[1..1000000] of integer; n,i,ptu,kt:integer; begin clrscr; write(‘Nhap so luong phan tu N: ‘); readln(n); ptu:=1; kt:=0; for i:=1 to n do begin write(‘A[‘,i,’]= ‘); readln(A[i]); if (A[i] mod 2=0) and (kt=0) then begin ptu:=A[i]; kt:=1; end; end; if kt=0 then write(‘Khong co phan tu chan trong mang’) else write(‘So chan dau tien trong mang la: ‘,ptu); readln; end. Trả lời
uses crt; ar n,i:longint; a:array[0..1000000] of integer; kt:boolean; BEGIN clrscr; write(‘Nhap N:’); readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]:’); readln(a[i]); end; kt:=false; for i:=1 to n do if a[i] mod 2=0 then begin write(‘Phan tu chan dau tien trong mang la:’,a[i]); kt:=true; break; end; if kt=false then write(‘Khong co phan tu chan trong mang’); readln END. Chúc bạn học tốt! Trả lời