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 N số đã nhập.
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.