Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Mời tài trợ sinh nhật diễn đàn 8 năm

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Đăng ký tham gia offline VN-Zoom 8 năm tại HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
kết quả từ 1 tới 2 trên 2
  1. #1
    conanomline's Avatar
    conanomline vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2009
    Bài
    546
    Cảm ơn
    365
    Điểm
    41/28 bài viết
    VR power
    0

    Question Bài tập Pascal kiểu mảng ?

    xóa dấu vết ^^
    Thay đổi nội dung bởi conanomline; 06-03-2011 lúc 18:26.

  2. #2
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.405/1.516 bài viết
    VR power
    0

    Default

    bài 1
    Code:
    uses crt;
    var a: array [1..50] of integer;
        n, i, max,vt: integer;
    
    begin
     clrscr;
     write('Nhap so phan tu cua day so, N= ');
     readln(n);
     for i:=1 to n do
     begin
      write('Phan tu thu ',i,' = ');
      readln(a[i]);
     end;
     max:=a[1];
     vt:=1;
     for i:=2 to n do
      if max<a[i] then
      begin
       max:=a[i];
       vt:=i;
      end;
     writeln('Max la: ',max);
     write('Nam o vi tri ',vt);
     readln;
    end.
    bài 2
    Code:
    uses crt;
    var a: array [1..50] of integer;
        n, i, tong: integer;
    
    begin
     clrscr;
     write('Nhap so phan tu cua day so, N= ');
     readln(n);
     tong:=0;
     for i:=1 to n do
     begin
      write('Phan tu thu ',i,' = ');
      readln(a[i]);
      tong:=tong+a[i];
     end; 
     writeln('Tong cac phan tu trong mang: ',tong);
     readln;
    end.
    Bài 3
    Code:
    uses crt;
    var a: array [1..50] of integer;
        n, i, dem: integer;
    
    begin
     clrscr;
     write('Nhap so phan tu cua day so, N= ');
     readln(n);
     dem:=0;
     for i:=1 to n do
     begin
      write('Phan tu thu ',i,' = ');
      readln(a[i]);
      if a[i] mod 2=0 then
      dem:=dem+1;
     end; 
     writeln('Co ',dem,' so chan');
     readln;
    end.
    Bài 4
    Code:
    uses crt;
    var a: array [1..50] of integer;
        n, i, x: integer;
        kt:boolean;
    
    begin
     clrscr;
     write('Nhap so phan tu cua day so, N= ');
     readln(n);
     for i:=1 to n do
     begin
      write('Phan tu thu ',i,' = ');
      readln(a[i]);
     end;
     kt:=false;
     write('Nhap 1 so nguyen: ');
     readln(x);
     for i:=1 to n do
      if a[i]=x then
       kt:=true;
     if kt then
      write('So nguyen ',x,' co trong mang')
     else
      write('So nguyen ',x,' khong co trong mang');
     readln;
    end.

  3. Có 2 thành viên cảm ơn 19-6 cho bài viết này:
    conanomline (06-03-2011), panda94 (09-03-2011)

 

 

Quyền sử dụng

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