Question

Viết chương trình nhập 1 dãy số gồm n số ( n nhập từ bàn phím) tìm và in ra giá trị lớn nhất trong dãy số vừa nhập

Answer 1

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

For i:=1 to n do begin if max<z[i] then max:=z[i];

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

End.

Answer 2

uses crt;
Var a:array[1..100000] of longint;
i,n,max:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]>max then max:=a[i];
write('Gia tri lon nhat trong day so vua nhap la: ',max);
readln
end.

Answer 3

uses crt;

var i,n,m:longint;

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

begin

write('nhap do dai cua day so:');readln(n);

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

if i=1 then m:=a[1]

else if a[i]>m then m:=a[i];

end;

write('gia tri lon nhat trong day so la:',m);

readln

end.