Viết chương trình 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á trị trung bình của N số đã nhập.
Viết chương trình 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á trị trung bình của
By Katherine
Thuật toán:
B1: Nhập n và dãy a1,a2,..aNaN ;
B2: max←a[1]; min←a[1]; gia tri TB←a[1];
B3:nếu max<a[i] thi max←a[i];
B4: nếu min>a[i] thì min←a[i];
B5: giatri TB←giatri TB+a[i];
B6: giatri TB←giatri TB/n
B7: in các giá trị max, min, giatri TB
MÌNH KO CHẮC ĐÚNG NẾU SAI MONG BẠN THÔNG CẢM ^^
program hello;
uses crt;
Var n,i,j,k: integer;
a: array[1..50] of integer;
begin;
a[1]:=k;
Readln(n);
For i:=1 to n do
Begin;
Writeln(‘nhap a[‘,i,’] ‘); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then k:=a[j];
Writeln(‘gia tri lon nhat la’, k);
end.