Nhập các n số nguyên từ bàn phím,tìm số lớn nhất trong dãy số vừa nhập

0 bình luận về “Nhập các n số nguyên từ bàn phím,tìm số lớn nhất trong dãy số vừa nhập”

1. Thuật toán:

   Bước 1:gán A<-0. I<-1;

   Bước 2: A<-1/I(I+2);

   Bước 3: I<-I+1

   Bước 4:Nếu I<=N, quay lại bước 2

   bước 5: Ghi kết quả A và kết thúc thuật toán

   Chương trình:

   program so_max;

   uses crt;

   var A,i ,n, max: integer;

   begin

   clrscr;

    writeln(‘Nhap n: ‘);   readln(n);

   for i:=1 to n do begin writeln(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]); end;

          max:=A[1] ;

   for i:=2 to n do if A[i]>max then max:=A[i];

          writeln(max);

          readln;

   end.

   CHÚC BẠN HỌC TỐT :))

   Bình luận

2. program so_max;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,max:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);   readln(n);

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          max:=A[1];

          for i:=2 to n do

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

          write(max);

          readln;

   end.

   Bình luận