Viết chương trình nhập vào độ dài của 1 dãy số. In ra màn hình số lớn nhất trong dãy số đó

Question

dananh · Answer

Program So_lon_nhat;

Uses Crt;

Var i,n,Max:integer;

S:longint;

Begin

Clrscr;

S:=0;

Write(‘nhap n tu ban phim’);

Readln(n);

For i:=1 to n do

Begin

Write(‘A[‘,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 la’,Max);

Readln

End.

kimlien · Answer

program phuongt;

uses crt;

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

i, max, n: integer;

begin

clrscr;

write(‘Nhap do dai day so: ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘,i,’] = ‘); readln(A[i]);

end;

max:=A[1];

for i:=1 to n do if max<A[i] then max:=A[i];

write(‘So lon nhat trong day so la: ‘, max);

readln

end.