Question

Helpp

Viết CT :Tìm số lớn nhất có trong dãy số

Answer 1

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

i,n,max:integer;

Begin

Write('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 max < a[i] then max:=a[i]

write('So lon nhat trong day la ',max);

Readln

End.