program ct;
uses crt;
var i,n,k,d:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
write('nhap mang a[',i,']:=');readln(a[i]);
end;
write('nhap k:=');readln(k);
d:=0;
if a[i]=k then d:=d+1;
if d=0 them writeln(k,'khong co trong day') else
writeln(k,'xuat hien',d:2,' lan trong day');
readln
end.
uses crt;var i,n,k,d:longint; a:array[1..10000000]of longint;beginclrscr; write('Nhap N,k: ');readln(n,k); for i:=1 to n do begin write('Nhap vao phan tu thu ',i,': ');readln(a[i]); if a[i]=k then inc(d); end; writeln(d);readlnend.
chỉ cho mình cách giải với ạ.mình biết đáp án rồi nhưng ko hiểu thôi .mong các bn giúp đỡ cho mình Câu 3. Cho đoạn chương trình: J:= 0; For i:= 1 to 5 do J:= j + i; Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? A. 12 B. 22 C. 15 D. 42. Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j ); Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần? A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện. chỉ cho mình cách giải với ạ.mình biết đáp án rồi nhưng ko hiểu thôi .mong các bn giúp đỡ cho mình
Vũ khí, cháy nổ và các chất độc gây hại xảy ra do nguyên nhân nào
Mọi người ơi , giúp mk bài tập 1 và bài 2 với ạ .
Giúp mình giải với ạ mình đang cần gấp
Thế nào là động vật biến nhiệt?Thế nào là động vật hằng nhiệt?
Nêu điểm giống nhau và khác nhau giữa bộ thú huyệt và bộ thú túi help me !!!!
phân tích những câu tục ngữ trong bài tục ngữ về thiên nhiên và lao động sản xuất và những câu tục ngữ khác mà em biết để chứng minh nhận định:Tục ngữ là"túi khôn" của nhân dân
Một thư viện có một ngăn sách chứa 2 loại sách Văn và Toán. Lúc đầu sách Văn bằng 9/20 tổng số sách trong ngăn. Sau đó thư viện cho mượn 12 cuốn sách thì còn lại 7/18 so với tổng số sách. Tính số sách lúc sau.
Tổng của hai số bằng nửa số chẵn lỡn nhất có ba chữ số ,nếu thêm vào số hạng thứ nhất 12 và bớt số hạng thứ hai 42 thì tổng mới là bao nhiêu
Cần gấp vote 5 sao |x^2+2014|=1
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
