Bài 5: Các thao tác cơ bản trên bảng

Quang anh Đỗ
Xem chi tiết
Kiều Vũ Linh
14 tháng 11 2022 lúc 10:58

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.

Bình luận (0)
đặng hoàng
12 tháng 11 2022 lúc 21:41

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

Bình luận (0)
huehan huynh
2 tháng 12 2021 lúc 10:30

?

Bình luận (0)
Hoàng Hồ Thu Thủy
2 tháng 12 2021 lúc 10:31

???

Bình luận (0)
Bảo Chu Văn An
2 tháng 12 2021 lúc 10:32

cái gì vậy bạn?

Bình luận (0)
ghost and monster
Xem chi tiết
Phan Ngọc Huy
Xem chi tiết