Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
yorn violet

viết chương trình nhập dãy A gồm n số nguyên từ bàn phím sau đó tính toán và in ra màn hình giá trị trung bình , số nhỏ nhất và số lớn nhất của dãy n số đó( n cũng được nhập từ bàn phím)????????????????

giải giúp mình với mình sắp thi r

Nguyễn Lê Phước Thịnh
29 tháng 6 2020 lúc 13:21

uses crt;

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

n,i,max,min,tb:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

writeln('Gia tri trung binh cua day so la: ',tb/n:4:2);

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('Gia tri lon nhat cua day so la: ',max);

writeln('Gia tri nho nhat cua day so la: ',min);

readln;

end.


Các câu hỏi tương tự
Tuoi tom May
Xem chi tiết
Uchiha Obito
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Uchiha Obito
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết
Bảo Trâm
Xem chi tiết
Phạm Minh
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết