cho N và dãy a1...an.viết chương trình để tìm ra gtri lớn nhất của dãy
2 câu trả lời
Program NN;
Uses crt;
Var A: array[1..10000] of longint;
n,i,max: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do Read(A[i]);
max:=A[1];
For i:=2 to n do
If A[i]>max then max:=a[i];
Write('Max = ',max);
Readln
End.
cho N và dãy a1...an.viết chương trình để tìm ra giá trị lớn nhất của dãy:
Uses crt;
var a:array[1..10000] of longint;
max,n,i:longint;
begin
clrscr;
write('N=');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];
writi(max);
readln
end.
