Question

Answer 1

Câu 2: 

uses crt;

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

i,n,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

ln:=a[1];

for i:=1 to n do

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

writeln(ln);

readln;

end.

 

Answer 2

Câu 1:

^{Bạn viết ra nhiều lỗi quá:v.}

^{Sau N: integer thiếu ;}

^{array không phải arsay nhé. Trong ngoặc vuông là 1..N không phải 1...N b nhé.}

Ở câu hỏi đó thì không thể thực hiện được.

Vì khai báo biến mảng cần biết đúng chỉ số đầu và chỉ số cuối. Ở đây N là 1 biến đã khai báo nhưng chưa biết được chỉ số. Nên không thể thực hiện được