Viết thuật toán(tin học 10)

[girlkute]

cho dãy số nguyên N phần tử a1,a2,... aN.tìm và hiển thị ra man hình phần tử lớn nhất trong dãy

 

[Trung Kiên]

Uses crt;
Var a:array[1..100] of integer;
      n,i,max:integer;
Begin
      clrscr;
      Write('Nhap so phan tu cua mang:');   Readln(n);
      For i:=1 to n do     
      Begin       
           Write('Nhap a[',i,']:');       
           Readln(a[i]);     
      End;
      max:=a[1];

      For i:=2 to n do
      begin
           if max<a[i] then max:=a[i];
      end;
      Writeln('Phan tu lon nhat cua day la: ',max);
end.

có thể bài viết sẽ sai 1 vài lỗi cú pháp nhỏ bởi vì mình ko viết pascal lâu rồi

 

[dienvi2010]

Đã có bài trên diễn đàn: "Nêu ý tưởng về bài toán nhập vào một dãy số sau đó tìm số lớn nhất và bé nhất của dãy số đó?"
Bạn tham khảo cho phần của mình nha.

Input: Số nguyên dương n (2<n<250) và dãy số nguyên dương A1, A2, ..., An
Output: Giá trị lớn nhất, nhỏ nhất của dãy đã cho.

B1: Nhập n và dãy A1..An;
B2: Max \[\leftarrow \] A1, Min \[\leftarrow\] A1, i \[\leftarrow\] 2;
B3: Nếu i>N thì đưa ra giá trị Max, Min rồi kết thúc;
B4:
B4.1: Nếu Ai>Max thì Max\[\leftarrow \] Ai, Nếu Ai<Min thì Min \[\leftarrow \] Ai;
B4.2: i \[\leftarrow \] i+1, chuyển đến bước 3;