viết thuật toán nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất cùng độ lệch của giá trị đó so với giá trung bình của N số đã nhập. N cũng được nhập từ bàn phím.
viết thuật toán nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất cùng độ lệch của giá trị đó so với giá trung bình của N số đã nhập. N cũng được nhập từ bàn phím.
prorgam BT_mang;
uses crt;
var A:array [1..500] of integer;
N,i,max,min: integer;
TB,lech1,lech2: real;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(N);
max:=1; min:=1;
for i:=1 to N do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
TB:=TB+A[i];
end;
TB:=TB/N;
if max>TB then lech1:=max-TB
else lech1:=TB-max;
if min>TB then lech2:=min-TB
else lech2:=TB-min;
writeln(‘So lon nhat: ‘,max,’, lech ‘,lech1:2:1,’ so voi trung binh: ‘,TB:2:1);
write(‘So nho nhat: ‘,min,’, lech ‘,lech2:2:1,’ so voi trung binh: ‘,TB:2:1);
readln
End.