Sử dụng biến mảng viết chương trình nhập vào một dãy số gồm N số nguyên từ bàn phím. In ra màn hình giá trị lớn nhất của dãy số đó
Sử dụng biến mảng viết chương trình nhập vào một dãy số gồm N số nguyên từ bàn phím. In ra màn hình giá trị lớn nhất của dãy số đó
Uses crt;
var a: array[1..100] of integer
max,n ,i: integer;
begin
clrscr;
writeln(‘Nhap so phan tu mang:’); readln(n);
for i:= 1 to n do
begin
writeln(‘Nhap so thu’,i,’:’); READLN(a[i]);
end;
max:=a[1];
for i:= 1 to n do
if max<a[i] then begin max:=a[i];
end;
writeln(‘Gia tri lon nhat cua day so la:’,max);
readln;
end.
program Max;
uses crt;
Var
i, n, s, Max: integer;
A: array[1..100] of integer;
Begin
clrscr;
write(‘Hay nhap do dai cua day so, N = ‘); readln(n);
writeln(‘Nhap cac phan tu cua day so:’);
For i:=1 to n do
Begin
write(‘a[‘,i,’]=’);
readln(a[i]);
End;
Max:=a[1];
For i:=2 to n do
Begin
if Max<a[i] then Max:=a[i];
End;
writeln(‘So lon nhat la Max = ‘,Max);
Readln
End.