Viết chương trình tìm giá trị lớn nhất của dãy số
|
1. Xác định bài toán
- Input: Số nguyên dương N và dãy N số nguyên a1,..., aN.
- Output: Giá trị lớn nhất Max của dãy số.
2. Thuật toán.
ĐĂNG BÀI NGAY để cùng thảo luận với các CAO THỦ trên mọi miền tổ quốc. Hoàn toàn miễn phí! Viết chương trình nhập vào một mảng n số nguyên từ bàn phím , và in ra màn hình giá trị lớn nhất và nhỏ nhất của mảng.Sử dụng lệnh while...do Last edited: 17 Tháng tư 2018
program abc; uses crt; var a,b,c,dmax : integer; begin clrscr; write ( ' nhap a =' ); readln (a); write ( ' nhap b = '); readln (b); write ( ' nhap c =' ); readln (c); write ( ' nhap d = ' ); readln (d); a:=max; if max
end.
Reactions: Pé Phương and dương đại uyển
Ai có thể viết một chương trình hoàn chỉnh để giải bài này và dùng câu lệnh while...do không ạ.Làm ơn giúp mình với mai mik kiểm tra rồi! Reactions: Thần Thương Dạ
Program Max; Uses crt; Var a:array[1..100] of integer; i, max, gtln, min, gtnn : integer; Begin clrscr; writeln(' Nhap so luong phan tu cua mang n='); readln(n) writeln('Moi ban nhap mang:'); for i:=1 to n do Readln(a); Max:=a[1]; for i:=2 to n do If a> max then max:=a; writeln('Phan tu co gia tri lon nhat cua mang la:', max); writeln; End. Giá trị nhỏ nhất làm tương tự Reactions: Erza Scarlet.
uses crt;
var a:array[1..100] of integer;
n,i,max,min:integer;
begin
clrscr;
write('Nhap n:');readln(n);i:=1;
while i<=n do
begin
write('a[',i,']:');readln(a[i]);
if i=1 then begin max:=a[i]; min:=a[i];end;
if i>=2 then begin
if a[i]>max then max:=a[i];
if a[i] Reactions: Sơn Nguyên 05 and besttoanvatlyzxz
Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do Readln(a); Max:=a[1];
for i:=2 to n do
If a> max then max:=a; Giá trị nhỏ nhất làm tương tự Chương trình này của bạ không chạy được đâu
Uses crt; Var a:array[1..100] of integer; i, max, gtln, min, gtnn ,n: integer; Begin clrscr; writeln(' Nhap so luong phan tu cua mang n='); readln(n); writeln('Moi ban nhap mang:'); for i:=1 to n do Readln(a[i]); Max:=a[1]; for i:=2 to n do If a[i]> max then max:=a[i];writeln('Phan tu co gia tri lon nhat cua mang la:', max); writeln; readln End. Reactions: besttoanvatlyzxz
Mình sửa lại vì sửa trực tiếp minh không sửa được. Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn,n : integer;
Begin clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do Readln(a); Max:=a[1]; writeln; End. Page 2
Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do Readln(a); Max:=a[1]; writeln; End. Phải sửa là
a
Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do Readln(a); Max:=a[1]; Write(‘nhap a[‘,i,’]=‘); Realn(a); ...
Program GTLN;
uses crt;
var a:array[1..100] of integer;
i,max,n:integer;
begin
clrscr;
writeln('Nhap so luong phan tu mang:'); readln(n);
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a[i]);
Max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('so lon nhat:');
writeln(max);
writeln;
End. Reactions: besttoanvatlyzxz |
