xác định giá trị lớn nhất của dãy số:B=5, 47, 1, 4, 2, 6, 7, 13

code pascal:

program baitap;

uses crt;

var B:ARRAY[1..1000000] of longint;

i,n,max:longint;

begin

clrscr;

write('nhap n=');

read(n);

for i:=1 to n do

begin

write('nhap pt thu ',i,': ');

read(B[i]);

end;

max:=B[i];

for i:=1 to n do

if max < B[i] then max:=B[i];

write('so lon nhat la:',max);

readln;

readln;

end.

Uses crt;

Var

A:array [1..500] of integer;

N,i,max: integer;

Begin

CLRSCR;

Write(' Nhap so phan tu:  ' ); Readln(N);

max:=1;

For i:=1 to N do

 Begin

 Write('A[',i,']='); readln(A[i]);

 If max<A[i] then max:=A[i];

 End;

Write('Gia tri lon nhat: ',max);

Readln;

End.