OPTADS360
ATNETWORK
ADS_ZUNIA
YOMEDIA
Banner-Video
IN_IMAGE

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

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
  bởi Nguyễn Duy Hùng 06/01/2020
ADMICRO/lession_isads=0

Câu trả lời (2)

  • var

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

    i,j,max:integer;

    begin

    repeat

    writeln('nhap vao n:');

    redln(n);

    until (n<=250);

    for i:=1 to n do

    write('nhap vao cac phan tu a[',i,']:');

    readln(a[i]);

    max:=a[i];

    for i:=1 to n do 

    for j:=i+1 to n do

    if a[i] < a[j] then

    begin

    max:=a[j];

    write('so lon nhat la',a[j],' tai vi tri ',j);

    end

    else write('so lon nhat la ',a[i],' tai vi tri ',j);

    readln;

    ead.

      bởi Phạm My 07/01/2020
    Like (0) Báo cáo sai phạm

  • 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.

     

     

      bởi Hồ Châu Thiên Thuận 09/01/2020
    Like (1) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 11