Những câu hỏi liên quan
hoàng đức
Xem chi tiết
Trân Tăng
Xem chi tiết
Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:11

Input: dãy số nguyên gồm n số được nhập từ bạn phím

Output: số lớn nhất, bé nhất trong dãy

Bình luận (0)
Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:13

B1: nhập dãy số nguyên

B2: gán max:=a[1]; min:=a[1] 

B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]

B4: in kết quả ra màn hình

Bình luận (0)
Sự tâm
Xem chi tiết
Cuppy Cake
Xem chi tiết
Phùng Phúc An
Xem chi tiết
Nguyễn Công Bằng
Xem chi tiết
Thu Hiền
Xem chi tiết
nguyễn xuân hoàng tùng
Xem chi tiết
Đức Lương Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 23:56

uses crt;

var a:array[1..100]of integer;

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

t:=t+a[i];

if nn>a[i] then nn:=a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(t);

writeln(ln);

writeln(nn);

writeln(t/n:4:2);

readln;

end.

Bình luận (0)
Nguyễn Linh
Xem chi tiết
KhảTâm
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)
Nguyễn Lê Phước Thịnh
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)