VCT nhập mảng số nguyên gồm n số. In dãy số vừa nhập. KT và in ra các số lẻ.

lhanhthubentre

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

hungvipp638

Uses Crt;
Var a:array[1..1000] of longint;
i,n:integer;
Begin
Clrscr;
Repeat
Write('Nhap so ptu N vao: '); Readln(n);
Until n>0;
For i:= 1 to n do
Begin
Write('Nhap a[',i,'] vao:'); Readln(a[i]);
End;
Write('Cac so vua nhap la:');
For i:= 1 to n do
begin
Write(a[i]:2);
End;
Writeln;
Write('Cac so le trong day so do la: ');
For i:=1 to n do If a[i] mod 2 <>0 then
Begin
write(a[i]:2);
End;
If a[i] mod 2=0 then write('Khong co so le nao het!');
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!Đa tạ trước :333
*p/s: Hỏi đáp, comment bên dưới!

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

huonghuong

program Mang;

uses crt;

var A:array [1..500] of integer;

n,i: integer;

Begin

clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

end;

write('Day vua nhap: ');

for i:=1 to n do write(A[i],' ');

writeln;

write('Cac so le trong day: ');

for i:=1 to n do

if A[i] mod 2<>0 then write(A[i],' ');

readln

End.

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

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

1. Jenifer went to the dentist because she had a toothache. -> Because of 2. Red is a bright colour but cats can't not see it. -> Even thought 3. Carol can outside to see what was happening although she wasn't wearing any shoes. -> Despite 4. Although he took a taxi, Bill still arrived late for the concert. -> In spite 5. In spite of his age, Mr Benson runs four miles before breakfast. -> Although 6. Because of the rough sea (biển động), the ferry couldn't sail. -> Because 7. Although he had a good salary, he was unhappy in his life. -> In spite 8. There were a lot of accidents because of the icy roads. -> Because

Làm hết nhé!!! Nếu k ít nhất làm câu 3,câu 1 tự luận

Câu19:Nghiệm của hệ bất phương trình $\left \{ {{x^2-11x+30>0} \atop {3x-2≤0}} \right.$ là A.x>6 B.x≤$\frac{2}{3}$ C. $\left \{ {{x>6} \atop {x≤\frac{2}{3} }} \right.$ D. $\left \{ {{x<5} \atop {x>6}} \right.$ Câu 20:Hệ bất phương trình $\left \{ {{\frac{2x-3}{5}}>\frac{3x-2}{4} \atop {8x-3<15x-10 }}\right.$ có bao nhiêu nghiệm nguyên A.24 B.Vô số C.3 D.12 Giả Thật Đầy Đủ và Chi tiết giúp mình nha.Cho mình gửi lời cảm ơn trước

Cho tam giác ABC vuông cân tại A, M là trung điểm của BC. Lấy D bất kì thuộc cạnh BC. H và I là thứ tự hình chiếu của B và C xuống đường thẳng AD. Đường thẳng AM cắt CI tại N chứng tỏ a) BH = AI b) `BH^2 + CI^2` có giá trị ko đổi c) Đường thẳng DN vuông góc với AC d) IM là p/g của góc HIC

Talk about your hobby về phim đoremon ngắn bằng tiếng

Thu gọn ( Làm tiếp ) đa thức C hộ iem Thanks

Help meeeeeeeeeeeeeeee 🥺🥺🥺🌹🌹🍀🌟🎄💐

viết cấu trúc thì present simple

I love wathcing the stamps i have collected them tìm lỗi sai và sửa

Hãy nêu sự khác nhau cơ bản về sự sinh sản của chim và thú Giúp mình nhe

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