Tin học Bài tập kiểu mảng

Thảo luận trong 'Tin học cấp III' bắt đầu bởi minnyvtpt02, 1 Tháng ba 2019.

Lượt xem: 183

  1. minnyvtpt02

    minnyvtpt02 Cựu Mod Hóa Thành viên

    Bài viết:
    1,137
    Điểm thành tích:
    249
    Nơi ở:
    Ninh Bình
    Trường học/Cơ quan:
    THPT NHO QUAN A
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    1 nhập dãy số nguyên gồm 7 phần tử , tìm phần tử nhỏ nhất trong mảng trên
    2 cho dãy số nguyên gồm 15 phần tử ,
    a , sắp xếp 7 phần tử đầu theo chiều tăng dần
    b, sắp xếp 8 phần tử sau theo chiều giảm dần
    in dãy được sắp xếp ra ngoài màn hình .
    < giúp mình với mình cần gấp >
     
    phamkimcu0ng thích bài này.
  2. H Đ D

    H Đ D Học sinh Thành viên

    Bài viết:
    75
    Điểm thành tích:
    36
    Nơi ở:
    Nghệ An
    Trường học/Cơ quan:
    THPT Đô Lương 3

    1.
    program mang;
    uses crt;
    var i,min:integer;
    a:array[1..7] of integer;
    begin
    clrscr;
    for i:=1 to 7 do begin writeln('nhap phan tu thu ',i,' a[',i,']='); readln(a); end;
    min:=a[1];
    for i:=2 to 7 do if a<min then min:=a;
    writeln(min);
    readln;
    end.
    2.
    program mang;
    uses crt;
    var i,j:integer;
    a:array[1..15] of integer;
    begin
    clrscr;
    writeln('Nhap cac phan tu cua day');
    for i:=1 to 15 do readln(a);
    for i:=1 to 6 do for j:=i+1 to 7 do if a>a[j] then begin tg:=a; a:=a[j]; a[j]:=tg; end; {cau a}
    for i:=7 to 14 do for j:=i+1 to 15 do if a<a[j] then begin tg:=a; a:=a[j]; a[j]:=tg; end; {cau b}
    for i:=1 to 15 do write(a,' ');
    readln;
    end.
     
    phamkimcu0ng thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->