Hồ Châu Thiên Thuận's Profile

Kết quả là 5 4 nhé.

viết công thức tìm và đưa ra màng hình phần tử lớn nhất và vị trí lớn nhất của mảng gồm N (N<=250) các phần tử là số nguyên

program Min;
uses crt;
var a:array[1..300] of integer;
    i,max,vitri,N:integer;
begin
   repeat
   begin
      write('Nhap N:');
      readln(N);
   end;
   until (N<=250);
   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 max<a[i] then
   begin 
      max:=a[i];
      vitri:=i;
   end;
   writeln(' ');
   writeln('Phan tu lon nhat la: ',max);
   writeln('Nam o vi tri thu: ',vitri);
readln;
end.