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ậ

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)

0 bình luận về “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ậ”

  1. 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!

    Bình luận

Viết một bình luận