Question

Viết chương trình nhập vào số nguyên dương N (N là số phần tử của dãy số). Nhập vào giá trị cho các phần tử đó. Tìm phần tử lớn nhất.

Answer 1

Var a:array[1..200] of integer;

i,n,max:integer;

Begin

Write('Nhap n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

Max:=a[1];

For i:=2 to n do

If a[i]>max then max:=a[i];

Write('Phan tu lon nhat la ',max);

Readln;

End.