Lập trình đơn giản

NL

Viết thuật toánchươ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).

H24
29 tháng 4 2021 lúc 15:55

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é!

Bình luận (0)
NT
29 tháng 4 2021 lúc 18:04

*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

Bình luận (0)

Các câu hỏi tương tự
HR
Xem chi tiết
T8
Xem chi tiết
YN
Xem chi tiết
H24
Xem chi tiết
PA
Xem chi tiết
H24
Xem chi tiết
KH
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết