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
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.
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!