mô tả thuận toán tìn giá trị nhỏ nhất,giá trị lớn nhất trg 1 dãy số gồm n số nguyên đc nhập từ bàn phím?
Mô tả thuật toán tìm giá trị lớn nhất, nhỏ nhất trong 1 dãy số gồm n số nguyên được nhập từ bàn phím?
Hãy xác định bài toán , mô tả thuật toán và viết chương trình nhập vào một dãy số nguyên với n phần tử ( n được nhập từ bàn phím ) , tìm giá trị nhỏ nhất và tích của dãy số đó
uses crt;
var a:array[1..100]of integer;
i,n,nn,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
s:=1;
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
s:=s*a[i];
end;
writeln(nn);
writeln(s);
readln;
end.
Viết thuật toán và chương trình tìm giá trị lớn nhất(in ra vị trí chứa phần tử có giá trị lớn nhất) của dãy số gồm n số nguyên được nhập từ bàn phím. (Sử dụng mảng).
uses crt;
var a:array[1..100] of integer;
max,n,i:integer;
begin
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin writeln('A[',i,']=;);readln(a[i]); end;
max:=a[1];
for i:=2 to n do if a[i] > max then begin
max:=a[i]; writeln('vi tri cua max trong day la',i);end;
readln
end.
thật ra thì cũng không cần biến max nhưng mình làm vậy cho dễ hiểu hơn nhé!
*Thuật toán:
-Bước 1: Nhập n và nhập dãy số
-Bước 2: max←a[1]; i←1;
-Bước 3: i←i+1;
-Bước 4: Nếu max<a[i] thì max←a[i];
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Cho for chạy từ 1 đến n
Nếu a[i]=max thì xuất i
-Bước 7: Kết thúc
1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập. 3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có trong dãy vừa nhập. 4. Viết chương trình nhập vào hai xâu bất kỳ, thông báo ra màn hình xấu có độ dài ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập sau. 5. Viết chương trình nhập vào một xâu, in ra màn hình xấu đó nhưng được viết theo thứ tử ngược lai
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím, in ra màn hình giá trị lớn nhất, giá trị nhỏ nhất và giá trị trung bình của dãy số, tính và in ra màn hình giá trị nhỏ nhất của dãy số nhỏ hơn giá trị TB bao nhiêu, giá trị lớn nhất của dãy số lớn hơn giá trị TB bao nhiêu là bao nhiêu?
program TimMinMaxTrungBinh;
var
N, i, max, min, sum: integer;
a: array[1..50] of integer;
TB, minTB, maxTB: real;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
sum := sum + a[i];
end;
max := a[1];
min := a[1];
for i := 2 to N do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
TB := sum / N;
minTB := TB;
maxTB := TB;
for i := 1 to N do
begin
if (a[i] < TB) and (a[i] < minTB) then
minTB := a[i];
if (a[i] > TB) and (a[i] > maxTB) then
maxTB := a[i];
end;
writeln('Gia tri lon nhat la: ', max);
writeln('Gia tri nho nhat la: ', min);
writeln('Gia tri trung binh la: ', TB:2:2);
if minTB = TB then
writeln('Khong co gia tri nao nho hon TB')
else
writeln('Gia tri nho nhat < TB la: ', minTB);
if maxTB = TB then
writeln('Khong co gia tri nao lon hon TB')
else
writeln('Gia tri lon nhat > TB la: ', maxTB);
readln;
end.
nhập mã gồm n số nguyên từ bàn phím ,xuất mãng vừa nhâp ,tìm và in ra giá trị lớn,bé nhất trg mãng
refer
uses crt;
var a:array[1..100]of integer;
n,i,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Vi tri cua so lon nhat la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
writeln('Vi tri cua so nho nhat la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
Viết chương trình trung bình cộng của giá trị lớn nhất và giá trị nhỏ nhất từ dãy n phần tử số nguyên được nhập vào từ bàn phím
program tinh_trung_binh_cong;
uses crt;
var i,n,max,min:integer
tbc:real;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i;=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i;1= to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
tbc:=(max+min)/2;
writeln(tbc);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln((max+min)/2:4:2);
readln;
end.
viết chương trình nhập vào 1 dãy gồm n số nguyên (n được nhập từ bàn phím). Tìm giá trị lớn nhất rtong dãy vừa nhập mà in ra màn hình
Program HOC24;
var a: array[1..32000] of integer;
i,max,,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if a[i]<max then max:=a[i];
write('So lon nhat la: ',max);
readln
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,max:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
max:=a[1];
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln('GTLN: ',max);
readln;
end.
viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím).Tìm giá trị nhỏ nhất trong dãy vừa nhập