Viết chương trình nhập điểm trung bình môn của các bạn sau đó in ra màn hình môn của bạn cao nhất

0 bình luận về “Viết chương trình nhập điểm trung bình môn của các bạn sau đó in ra màn hình môn của bạn cao nhất”

1. program oken;
   uses crt;
   var a: array [1..100] of real;
       i,n: longint;
       max: real;
   begin
           clrscr;
           write(‘nhap so ban: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘nhap diem ban thu ‘,i,’: ‘);
                           readln(a[i]);
                   end;
           max:=a[1];
           for i:=2 to n do
                   if a[i]>max then
                           max:=a[i];
           writeln(‘diem cua ban cao nhat: ‘,max:0:1);
           readln;
   end.

   Bình luận

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 .

   Bình luận