[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Đề: 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ố lớn nhất cùng độ lệch của giá trị lớn nhất so với giá trị trung bình của N số đã nhập.
Program max;
uses crt;
var i,n,max : integer;
giatri_TB: real;
A:array [ 1 .. 100 ] of integer;
Begin
clrscr;
Write(' Nhap N'); readln(n);
For i:= 1 to n do
begin
write ( 'A [ ' , i, ' ]='); readln(A [ i ] );
end;
max := A [ 1 ] ; giatri_TB := A [ 1 ] ;
for i:= 2 to n do
begin
If max < A [ i] then max:= A [ i];
giatri_TB:= giatri_TB+ A [ i ];
end;
giatri_TB:= giatri_TB/ n;
Writeln(' gia tri lon nhat la: ', max );
Writeln(' gia tri lon nhat hon gia tri trung binh la:', max- giatri_TB);
Readln
End.
Cho em hỏi bài này sai ở chỗ nào vậy ạ? Mọi người giúp em sửa lại với ạ.
Program max;
uses crt;
var i,n,max : integer;
giatri_TB: real;
A:array [ 1 .. 100 ] of integer;
Begin
clrscr;
Write(' Nhap N'); readln(n);
For i:= 1 to n do
begin
write ( 'A [ ' , i, ' ]='); readln(A [ i ] );
end;
max := A [ 1 ] ; giatri_TB := A [ 1 ] ;
for i:= 2 to n do
begin
If max < A [ i] then max:= A [ i];
giatri_TB:= giatri_TB+ A [ i ];
end;
giatri_TB:= giatri_TB/ n;
Writeln(' gia tri lon nhat la: ', max );
Writeln(' gia tri lon nhat hon gia tri trung binh la:', max- giatri_TB);
Readln
End.
Cho em hỏi bài này sai ở chỗ nào vậy ạ? Mọi người giúp em sửa lại với ạ.
