YOMEDIA
NONE

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
Theo dõi Vi phạm
ATNETWORK

Trả lời (2)

  • Phạm My

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

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • Hồ Châu Thiên Thuậ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.

     

     

      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
 
NONE

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

AANETWORK
 

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

 

YOMEDIA
ATNETWORK
ON