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

Flashsale Mua Sắm Trực Tuyến - Mua Nhanh Kẻo Hết

Cộng đồng công nghệ mới của Vn-Zoom

Cài đặt thảo luận về Windows 10 ở Vn-Zoom
Khuyến Mại FlashSale Cấm Up Ảnh đóng dấu forum khác

Vn-Zoom phiên bản beta

Kích hoạt Windows , Office miễn phí



kết quả từ 1 tới 2 trên 2
Vn-Zoom Việt Nam Phiên bản Beta

  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
    569
    Cảm ơn
    374
    Điểm
    41/28 bài viết

    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. Cách mạng mua sắm giảm giá cực sốcMưa Sale Băng giảm giá cực tốt *** Bủng Nổ Cơn lốc công nghệ
  3. #2
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Cống hiến cho [V-Z]
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.876
    Cảm ơn
    858
    Điểm
    3.481/1.517 bài viết

    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.




  4. 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)

 

 
Cách mạng mua sắm giảm giá cực sốcMưa Sale Băng giảm giá cực tốt *** Bủng Nổ Cơn lốc công nghệ


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
  •