Viết chương trình nhập điểm kiểm tra hk 1 môn toán cho N học sinh và in ra màn hình với N là điểm lớn nhất được nhập từ bàn phím

0 bình luận về “Viết chương trình nhập điểm kiểm tra hk 1 môn toán cho N học sinh và in ra màn hình với N là điểm lớn nhất được nhập từ bàn phím”

1. program mang;

   uses crt;

   var A:array [1..500] of real;

         n,i: integer;

         max: real;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            max:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

                     if max<A[i] then max:=A[i];

            end;

            write(‘Diem lon nhat: ‘,max:2:3);

            readln

   End.

   Trả lời

2. uses crt;

   var a:array[1..100] of integer;

   n,i:integer;

   begin

   writeln(‘nhap so hoc sinh: ‘);readln(n);

   writeln(‘nhap diem’);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]’);readln(a[i]);

   end;

   for i:=1 to n do write(‘hoc sinh ‘,i,’ duoc ‘,a[i],’ diem mon tin’);

   readln

   end.

   Trả lời