Bài tập 6: Cho dãy A gồm N số nguyên a1, a2,..., aN. Kiểm tra xem trong dãy có số hạng nào = 5 hay không? Nếu có hãy đưa ra chỉ số i của số hạng đó. Bài tập 8: Cho dãy A gồm N số nguyên dương a1, a2, ..., aN. Đếm xem trong dãy đã cho có bao nhiêu số lẻ và tính tổng các số lẻ đó.

tu2000vn

2 năm trước

Bài tập 6: Cho dãy A gồm N số nguyên a1, a2,..., aN. Kiểm tra xem trong dãy có số hạng nào = 5 hay không? Nếu có hãy đưa ra chỉ số i của số hạng đó. Bài tập 8: Cho dãy A gồm N số nguyên dương a1, a2, ..., aN. Đếm xem trong dãy đã cho có bao nhiêu số lẻ và tính tổng các số lẻ đó. Giúp mình câu 6 và 8 với ạ

Loga Sinh Học lớp 12

0 lượt thích 37 xem

1 trả lời

Thích Trả lời

HienCao

Bài tập 6:

var i,n:integer;

a: array [1..1000] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i); read(a[i]);

end;

writeln;

writeln('Vi tri cua nhung phan tu bang 5 la: ');

for i:=1 to n do

if a[i]=5 then write(i,' ');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

thuydiem1995

uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------ctc-nhap------------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------------ctc-tinh-tich-cac-so-chan------------}
function tich(var c:mang):longint;
begin
s:=1;
for i:=1 to n do
if c[i] mod 2=0 then s:=s*c[i];
writeln(s);
end;
{------------chuong-trinh-chinh-----------------------}
begin
clrscr;
nhap(a);
tich(a);
readln;

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

(3x +1)(x^2+ 2)= (3x +1) (7x -10) Giải giúp mình với.

hai tiếp tuyến tại A và B của ( O ; R ) cắt nhau tại M biết góc OM bằng 2R a) tính số đo góc ở tâm tạo bởi hai bán kính OA và OB b) Tính số đo mỗi cung AB ( cung lớn và cung nhỏ )

Một chiếc xe đi từ tỉnh A đến tỉnh B với vận tốc 40km/h . Sau đó 1h30' một chiếc xe con cũng khởi hành từ tỉnh A đến tỉnh B với vận tốc 60km/h . Hai xe găpj nhau khi chúng đã đi đc một nữa quãng đg AB . Tính quãng đg AB Cho em hỏi là em lm đungs hay sai ạ

Giúp giùm mình mấy bài toán của bài 1 nhà các bạn.😚☺️

Một quả bóng được ném theo phương ngang với vận tốc tốc bằng 20m/s và rơi xuống đất sau 3s. Hỏi quả bóng được ném từ độ cao nào? Lấy g=10m/s^2 và bỏ qua sức cản của không khí

Giúp em giải mấy câu này với ạ

Đề bài: Cho tam giác ABC cân tại A, góc A =40. Trên nửa mp bờ BC ko chứa điểm A kẻ tia Bxsao cho góc CBx= 10 độ. Trên tia Bz lấy điểm Dsao cho BD=AB. Tính góc BDC

Cho (O;R) đường kính AB.qua A và B vẽ lần lượt 2 tiếp tuyến (d) và (d') với (O).1 đường thẳng qua O cắt đường thẳng (d) ở M và cắt đường thẳng (d') ở P. Từ O vẽ 1 tia vuông góc với MP và cắt (d') tại N . Chứng minh: a)tam giác NMP cân b) MN là tiếp tuyến của (O) c, AM.BN=R²

Giải giúp mình nha ............

Số học sinh của 3 lớp lần lượt là 25 học sinh, 27 học sinh, 32 học sinh. Hỏi trung bình mỗi lớp có bao nhiêu học sinh?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến