Trang 72 / 72 FirstFirst ... 6769707172
Hiển thị kết quả từ 711 đến 712 / 712
  1. #711
    Tham gia
    16-07-2018
    Bài viết
    3
    Like
    1
    Thanked 1 Time in 1 Post

    không biết có ai giải chưa nhưng e nghỉ bài này thì e sẽ làm thế này

    BÀI 1
    uses crt;
    var a,b,c,min,max:integer;
    begin
    clrscr;
    write('nhap a=');readln(a);
    write('nhap b=');readln(b);
    write('nhap c=');readln(c);
    max:=a ; min:=a;
    if b>a then max:=b
    else if c>b then max:=c;

    if b<a then min:=b
    else if c<b then min:=c;
    writeln('so lon nhat la:',max);
    writeln('so be nhat la:',min);
    readln
    end.
    Được sửa bởi lecongquochuy lúc 14:38 ngày 18-07-2018 Reason: e quên khai báo biến

  2. #712
    Tham gia
    27-07-2018
    Bài viết
    3
    Like
    1
    Thanked 0 Times in 0 Posts
    Cái này cũng giống bài sắp xếp bình thường thôi mà đúng không?


    var m:array[0..100] of integer;
    m,i,j,t:integer;
    begin
    writeln('nhap so luong mang');
    readln(n);
    for i:=1 to n do
    begin
    writeln('phan tu thu ,i);
    readln(m[i]);
    end;
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if m[i]>m[j] then
    begin
    t:=m[j];
    m[j]:=m[i];
    m[i]:=t;
    end;
    writeln('day thu tu cua cac mang sau khi sap xep');
    for i:=1 to n do
    write(m[i],' ');
    readln
    end.


    Bài ra mắt mong là làm đúng. Mình cũng mới học nên mong được giúp đỡ.

Trang 72 / 72 FirstFirst ... 6769707172

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •