Question

Viết chương trình tìm số lớn nhất của dãy số nguyên nhập vào từ bàn phím.

Answer 1

Đây là bài làm của mình. Phần chữ nghiêng là giải thích nha. Có j sai sót thì chỉ giúp mình nhé.

Begin

For i:= 1 to 100 do Read (A[i]); Đọc dãy số

For i:= 1 to 100 do

If A[i] < A[i+1] then m:= A[i+1]; So sánh lần lượt các số với số đứng sau

Write( 'So lon nhat cua day so nguyen la:' , m); viết kết quả

End.

Answer 2

Program hotrotinhoc_hoc24;

var i,n,max: integer;

a: array[1..32000] of integer;

begin

write('Nhap so phan tu : '); readln(n);

max:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i]>max then max:=a[i];

end;

write('So lon nhat cua day la : ',max);

readln

end.