Viết phương trình nhập vào số N. Nhập các giá trị vào mảng có N phần tử. In ra màn hình giá trị lớn nhất trong mảng.

0 bình luận về “Viết phương trình nhập vào số N. Nhập các giá trị vào mảng có N phần tử. In ra màn hình giá trị lớn nhất trong mảng.”

1. program lon_nhat;

   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(‘So lon nhat la: ‘,max);

         readln;

   end.

   Bình luận

2. Đáp án:

   program hhh;
   Uses Crt;
   Var n,i,max: integer;
       a: array [1..100] of integer;
   begin
   clrscr;
   write(‘Nhap do dai cua day so: ‘); 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 max<a[i] then max:=a[i];
   writeln(‘Gia tri lon nhat cua day so la: ‘,max);
   readln
   end.

   bạn kt xem có phải vậy ko ạ

   nhớ vote mình 5 sao và ctlhn ạ 🙂

   Bình luận