program sok;
uses crt;
var A:array[1..100] of integer;
n,i,k,d:integer;
begin
clrscr;
write('Nhap so luong phan tu cua day: ');
readln(n);
writeln('Nhap tung phan tu cua day: ');
for i:=1 to n do
write('Nhap A[',i,']: ');
readln(A[i]);
end;
write('Nhap k: ');
readln(k);
d:=0;
if A[i]=k then inc(d);
writeln('Trong day cos ',d,' phan tu bang ',k);
readln
end.
var a : array[1..100] of integer;
i, m, k, d : integer;
d := 0;
write('Nhap so m và k : '); readln(m, k);
for i := 1 to m do
write('Nhap phan tu thu ', i ,' : '); readln(a[i]);
if a[i] = k then d := d + 1;
write('Co ', d ,' phan tu bang k ');
có 4 hs nam và 4 hs nữ xếp 2 băng ghế đối diễn hỏi có bn cách sắp xếp cho 8 hs đó ngồi vào. 2băng ghế mà mỗi người 4 ghế A đối diện nhau B ko đối diện nhau
2. Were they at the party? V 3. He can play chess when he was five. 4. Where did you go yesterday? V 5. He went to school by bus last Friday. Question 2: Fill was, were or did in the blanks to complete the sentences. 1. Where .you born? Where.... ..your mother born? ..... .... ...... 2. Who ...your first teacher? ...... 3. My mother...ill yesterday. 4. Where...you live when you...a child?. 5. They .....in the coffee bar. Question 3: Choose the correct words to complete the sentences. 1. She (sees/saw) a robber going toward the church.. 1 He (huxed/bought) some new shoes.. .
Cho em hỏi câu 3 4 5 ạ. Em cảm ơn
Xét tính tăng giảm của dãy số: √(n) - √(3n+1)
Vẽ chibi siu cute nhaaaaaaaaaaa
Cảm nhận của em về đoạn văn đã đc đánh dấu= một đoạn văn. Giúp mình nha
cho ví dụ về nhận thứ lí tính và nhận thức cảm tính GIÚP MK VS< NGẮN GỌN NHA< ĐỪNG CHÉP MẠNG
ai chỉ mk viết dấu ko chia hết vs!
4. Giải thích hiện tượng bị mụn sưng tấy lên tự khỏi. 5. Giải thích Bệnh máu đông
văn biểu cảm về cây em yêu(giúp cây hoa hồng nhé!)mai mình thi
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
