Question

Cho dãy số sau : 211,98,11,97,149,135,186,2011,27 . Hãy viết thuật toán để tìm Max

Answer 1

uses crt;
var max,i:longint;
a:array[1..9] of longint;
begin
clrscr;
write('Nhap 9 so: '); writeln;
for i:=1 to 9 do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];
for i:=2 to 9 do begin
if a[i]>max then max:=a[i];
write('Phan tu lon nhat la: ',max);
readln
end.