Tin học biến kiểu mảng - bài tập

Thảo luận trong 'Tin học cấp III' bắt đầu bởi phanthikhanhhuyenb2@gmail.com, 26 Tháng tư 2020.

Lượt xem: 88

  1. phanthikhanhhuyenb2@gmail.com

    phanthikhanhhuyenb2@gmail.com Học sinh mới Thành viên

    Bài viết:
    34
    Điểm thành tích:
    6
    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!

    upload_2020-4-26_17-4-19.png
    Giúp mình bài nào cũng được ạ
     

    Các file đính kèm:

    Last edited by a moderator: 26 Tháng tư 2020
  2. nguyenthigiaolinh67@gmail.com

    nguyenthigiaolinh67@gmail.com Học sinh chăm học Thành viên

    Bài viết:
    1,071
    Điểm thành tích:
    141

    1)
    Mã:
    program BT1;
    uses crt;
    var a: array[1..200] of integer;
          max: integer; n,i: byte;
    begin
     clrscr;
     write('Nhap bao nhieu so:'); readln(n);
     for i:=1 to n do begin
        write('a[',i,']='); readln(a[i]);
        end;
    max:= a[1];
    for i:=2 to n do if a[i] > max then max:=a[i];
    writeln('So lon nhat cua cac so vua nhap la:',max);
    readln
    end.
    2)
    Mã:
    program BT2;
    uses crt;
    Var A:array[1..50] Of Integer;
    N,i,j,Tam:Integer;
    Begin
    Write('Nhap N='); Readln(N);
    For i:=1 To N Do
    Begin
    Write('A[',i,']='); Readln(A[i]);
    End;
    For i:=1 To N-1 Do
    For j:=i+1 To N Do
    If A[i]>A[j] Then
    Begin
    Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
    End;
    
    Writeln('Ket qua sau khi sap xep:');
    For i:=1 To N Do Write(A[i]:5);
    Readln;
    End.
    
     
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

-->