Question

Nhập vào từ bàn phím dãy A gồm N số nguyên (1<N<255)

1. in dãy vừa nhập râ màn hình

2. hãy cho biết số hạng lớn nhất của dãy

Answer 1

uses crt;

var a:array[1..255]of integer;

i,n,max:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (1<n) and (n<=255);

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do 

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

writeln('Gia tri lon nhat la: ',max);

readln;

end.