Question

Viết chương trình nhập vào 10 số nguyên từ bàn phím , tìm ra số lớn nhất

Answer 1

program TimMax;

uses crt;

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

      i,Max: byte;

begin

         clrscr;

         for i:=1 to 10 do 

         begin

                  writeln('Nhap a[',i,']='); readln(a[i]);

         end;

        for i:=1 to 10 do write(a[i]:5);

        Max:=a[1];

        for i:=1 to 10 do 

           if Max < a[i] then Max:=a[i];

        writeln('So lon nhat cua day so la:', Max);

        readln

end.

Answer 2

Var a

so,max,i:integer;

Begin

max:=so;

For i:=1 to 10 do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so > max then max:=so;

End;

Write('So lon nhat la ',max);

Readln

End.