Question

Viết chương trình nhập vào 100 số nguyên rồi tìm giá trị lớn nhất của dãy số đó.

Giúp mình với ạaa

Answer 1

Var a:array:[1..100] of integer;

i,max:integer;

Begin

For i:=1 to  100 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to n do

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

write('So lon nhat la ',max);

Readln

End.

Answer 2

Uses crt;

var i,n,max; longint;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(n); readln;

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

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

readln;

end.

Answer 3

Var a:array:[1..100] of integer;

i,max:integer;

Begin

For i:=1 to  100 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to 100 do

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

write('So lon nhat la ',max);

Readln

End.