Question

Viết chương trình nhập 1 dãy N số nguyên từ bàn phím với N nhập từ bàn phím xuất ra dãy số in ra màn hình

a) tính trung bình cộng của dãy. Xuất ra màn hình

b) tìm giá trị lớn nhất, giá trị nhỏ nhất của dãy. Xuất ra màn hình

c) tìm hiệu giữa giá trị trung bình, giá trị lớn nhất, giá trị nhỏ nhất

MỌI NGƯỜI GIÚP MÌNH VỚI Ạ VÌ SẮP KIỂM TRA RỒI!

Answer 1

uses crt;
var a:array[1..100]of integer;
n,i,max,min:integer;
tb:real;
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('Trung binh cong 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);
writeln('Hieu giua gia tri trung binh, gia tri lon nhat va gia tri nho nhat la: ',tb/n-max-min:4:2);
readln;
end.