Câu 1 cho dãy số nguyên gồm n phân tử a1, a2,....a12 với a1, a2 ......an và n nhập từ bàn phím Viết chương trình tìm phần tử lớn nhất Câu 2 xây dựng chương trình con để tính độ dài của 1 vecto có tọa độ (x,y) Giúp e vs ạ e đang cần gấp bây h C ơn nhìu

câu 1:

uses crt;

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

i,n,max: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

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

writeln ('phan tu lon nhat la: ',max);

readln;

end.

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

      i, n: byte;

      max: integer;

begin

  write ('nhap n: ');  readln (n);

  for i:=1 to n do

     begin

         write('nhap phan tu thu ',i,': '); 

         readln (a[i]);

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

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

      end;

   writeln ('phan tu lon nhat la: ', max);

   readln

end.