Tin học Viết chương trình

[Comic Angel]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào mảng 1 chiều các số nguyên, số lượng phần tử không quá 1000. Đưa ra màn hình số chẵn đầu tiên và chỉ số của nó trong mảng.

Giúp với ạ

 

[son_gohan]

Program mang;
var i,n:integer;A:array[1..1000] of integer;
begin
writeln('Moi ban nhap so luong phan tu mang:');
readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i);
readln(A);
end;
i:=1;
while (A mod 2 <> 0) do
i:=i+1;
if (i<=n) then
writeln('So chan dau tien trong mang la: ',A,' va chi so cua phan tu la: ',i)
else
writeln('Mang khong co phan tu la so chan');
readln;
end.
Bạn tham khảo nhé