Question

viết chương trình nhập vào một mảng số nguyên.hãy tìm số 8 trong dãy .đưa ra màn hình kết quả có tìm thấy hay không

 

Answer 1

Var a:array of integer;

n,i,d:integer;

Begin

Write('Nhap so luong phan tu cua mang ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i]=8 then d:=d+1;

End;

If d<>0 then write('Tim thay so 8 trong mang')

Else write('khong tim thay so 8');

Readln;

End.

Answer 2

in ra số số 8 trong dãy hay tìm số 8 trong dãy vậy