viết chương trình nhập vào độ dài của một dãy số sau đó nhập giá trị cho các phần tử của dãy số và in ra số lớn nhất trong dãy số đó.

0 bình luận về “viết chương trình nhập vào độ dài của một dãy số sau đó nhập giá trị cho các phần tử của dãy số và in ra số lớn nhất trong dãy số đó.”

1. Chương trình bao nhanh, nhanh nhất có thể rồi đó.

   program solonnhat;

   uses crt;

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

         n,i,max:integer;

   begin

        clrscr;

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

        write(‘Nhap so thu 1: ‘);   readln(A[1]);

        max:=A[1];

        for i:=2 to n do

             begin

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

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

             end;

        write(‘Gia tri lon nhat trong day la: ‘,max);

        readln;

   end.

   Bình luận