Sử dụng biến mảng viết chương trình tìm phần tử nhỏ nhất và lớn nhất của dãy n số nhập từ bàn phím?
Những câu hỏi liên quan
Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy và in ra màn hình số lớn nhất của dãy số vừa nhập từ bàn phím.
viết chuương trình pascal sử dụng biến mảng để nhập từ bàn phím N phần tử của 1 dãy số . In ra màn hình số lớn nhất và số nhỏ nhất . Độ dài N của dãy cũng được nhập từ bàn phím
program TimMaxMinCuaMang;
var
mang: array of integer;
n, i, max, min: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
setlength(mang, n);
writeln('Nhap cac phan tu cua mang:');
for i := 0 to n-1 do
begin
readln(mang[i]);
end;
max := mang[0];
min := mang[0];
for i := 1 to n-1 do
begin
if mang[i] > max then
max := mang[i];
if mang[i] < min then
min := mang[i];
end;
writeln('Phan tu lon nhat la: ', max);
writeln('Phan tu nho nhat la: ', min);
readln;
end.
Đúng 1
Bình luận (0)
Var a:array:[1..1000] of integer;
i,n,min,max:integer;
Begin
Write('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:=2 to n do
begin
If a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('So lon nhat la ',max);
write('So nho nhat la ',min);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số.
a, In ra màn hình các số vừa nhập ( độ dài của dãy cũng được nhập từ bàn phím)
b, Tính tổng các phần tử của dãy số
c, Tính giá trị nhỏ nhất của dãy số
d, Tìm giá trị lớn nhất của dãy số
Var a:array:[1..1000] of real;
i,n,max,min,s:real;
Begin
Write('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:=2 to n do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
Write('Cac so vua nhap la ');
for i:=1 to n do write(a[i]:10:2):
Writeln;
Writeln('Tong la ',s:10:2);
Writeln('So nho nhat la ',min:10:2);
Write('So lon nhat la ',max:10:2);
Readln
End.
Đúng 1
Bình luận (0)
var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;
begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);
// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;
// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;
// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);
// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);
// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);
ReadLn;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài dãy số được nhập từ bàn phím. In ra màng hình số lớn nhất của dãy số.
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var i,n,max:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']=');readln(a[i]);
end;
max:=A[1];
for i:=2 to n do
if max<A[i] then max:=a[i];
write('so lon nhat trong day: ',max);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên in ra màn hình phần tử nhỏ nhất trong dãy số nguyên vừa nhập
var a:array[1..1000] of integer;
i,n,min:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min > a[i] then min:=a[i];
write('So nho nhat la ',min);
readln
end.
Đúng 1
Bình luận (2)
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é!
Đúng 1
Bình luận (0)
*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
Đúng 1
Bình luận (0)
sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím .sau đó in ra màn hình giá trị lớn nhất và nhỏ nhất của dãy số
giúp mik với
Program HOC24;
var min,max,i,n: integer;
a: array[1..1000] of integer;
begin
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:=2 to n do
begin
if a[i]> max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
write('Gia tri nho nhat la: ',min);
readln
end.
Đúng 0
Bình luận (0)
sử dụng free pascal viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy N số tự nhiên và viết ra màn hình? độ dài của dãy cũng được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của dãy N số thực
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím; tính tổng các phần tử
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (1)