Viết chương trình sử dụn biến mảng, dãy số từ 1 đến n được nhập từ bàn phím a. Hãy viết chương trình xác định giá trị nhỏ nhất của dãy số b. Viết chương trình xác định các số lẻ của dãy và in ra màn hình có bao nhiêu số lẻ

Trucnhat246

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

Minhnguyet1612

program bai_giai;

uses crt;

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

n,i,max,min,d:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

end;

max:=A[1]; min:=A[1];

for i:=1 to n do

begin

if A[i]>max then max:=A[i];

if A[i]<min then min:=A[i];

if A[i] mod 2=1 then d:=d+1;

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

if d=0 then write('Khong co so le nao')

else

begin

write('Cac so le cua mang la: ');

for i:=1 to n do

if A[i] mod 2=1 then write(A[i],' ');

writeln;

write('Co ',d,' so le');

end;

readln;

end.

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

hoaip7105

Uses crt;
Var a:array[1..100] of integer;
i,n,dem,min: 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,'] = ' ); Readln(a[i]);
End;
min:=a[1];
Writeln('- Gia tri nho nhat trong day so la: ',min);
Dem:=0;
For i:= 1 to n do
If a[i] mod 2 <> 0 then dem:=dem+1;
If a[i] mod 2 <>0 then
Begin
Writeln('- Trong day so tren, co ', dem,' so le ');
Writeln('- Do la cac so: ');
end else Write('Khong co so le nao o day so tren!');
For i:= 1 to n do if a[i] mod 2 = 1 then write(i:4);
Readln;
End.

*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhớ! Thanks :D
* Hỏi và đáp, comment bên dưới!

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

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

Giải giúp mình câu 11, 12 ,16 ,19,20, 22, 23 , 24 vs

giúp tui 4 câu trog ảnh vớiiiiiiii

). Một máy biến thế có số vòng dây ở cuộn sơ cấp là 500 vòng, cuộn thứ cấp là 50000 vòng. Cuộn sơ cấp nối vào nguồn điện xoay chiều có hiệu điện thế 50000V. a) Tính hiệu điện thế ở hai đầu cuộn thứ cấp ? b) Dùng máy biến thế trên để tải đi một công suất điện 1000KW. Tính công suất hao phí do toả nhiệt trên đường dây. Biết điện trở của đường dây là 50 .

Câu 1: Cho 11,3 gam hỗn hợp Zn và Mg tác dụng với dung dịch H2 SO4 đặc nóng dư thì thu được 6,72 l khí SO2 Tính thành phần phần trăm theo khối lượng của Zn Mg trong hỗn hợp đầu . Câu 2 : Hòa tan hết 12,95 g hỗn hợp gồm Zn và Cu trong dung dịch H2 SO4 đặc nóng thu được 4,48 lít khí SO2 sản phẩm khử duy nhất . Tính phần trăm khối lượng mỗi dung kim loại trong hỗn hợp ban đầu. Câu 3: Hòa tan hoàn toàn 2,4 gam hỗn hợp gồm Mg và Cu trong 200 gam dung dịch H2 SO4 đặc nóng vừa đủ thu được 1,12 lít khí SO2 sản phẩm khử duy nhất a >Tính phần trăm khối lượng mỗi kim loại trong hỗn hợp ban đầu b. Tính đồng độ phần trăm của dung dịch H2SO4 đã dùng giúp mk với 5 sao nha 1 cảm ơn và trả lời hay nhất cảm ơn nhiều

Giai het cac bai chinh xac 5 sao hay nhat

giúp tui 4 câu trog ảnh vớiiiiiiii

ai giải giúp mình câu này dii ạ mình cảm ơn nhiềuuu

Hai lớp 6A, 6B cùng thu nhặt một số giấy vụn bằng nhau. Lớp 6A có 1 bạn thu được 14kg còn lại mỗi bạn thu được 11kg. Lớp 6B có 1 bạn thu được 13kg còn lại mỗi bạn thu được 10kg. Tính số học sinh mỗi lớp biết rằng số giấy mỗi lớp thu được trong khoảng 400kg đến 500kg

Giúp mình với ạ mình cần gấp!...

các cây thuộc họ lúa, họ cúc có công dụng gì

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