Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh (N<=50) và in ra màn hình điểm cao nhất, thấp nhất. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh (N<=50) và in ra màn hình điểm cao nhất, thấp nhất. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
Uses Crt;
Var hs:array[1..50] of real;
i,n:integer; max,min:real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh vao: ‘); Readln(n);
For i:= 1 to n do
Begin
Write(‘Nhap diem hs[‘,i,’] vao: ‘); Readln(hs[i]);
End;
max:= hs[1]; min:=hs[1];
For i:= 2 to n do
Begin
If max<hs[i] then max:=hs[i];
If min>hs[i] then min:=hs[i];
End;
Writeln;
Write(‘Diem so cao nhat trong do la: ‘,max:2:1);
Writeln;
Write(‘Diem so thap nhat trong do la: ‘,min:2:1);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé!Thanks so much 😀
*p/s: Hỏi và đáp, comment bên dưới!
(´⊙ω⊙`)