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ẻ
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ẻ
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 😀
* Hỏi và đáp, comment bên dưới!
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.