Viết chương trình tìm max của dãy số có 15 phần tử kiểu nguyên Mọi người giúp với cần để ôn thi ạ
1 câu trả lời
uses crt;
var a: array[1..15] of word;
i,n,max: word
begin
clrscr;
for i:=1 to 15 do
begin
write ('nhap so thu ',i,': '); readln (a[i]);
end;
for i:=1 to 15 do
if a[i]>max then max:=a[i];
writeln ('so lon nhat la: ',max);
readln;
end.
