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



Giảm Giá Sốc chào 30/04 và hợp tác Vn-Zoom chỉ còn 50.000 VND/Key Trend Micro Internet Security 2017


Flash Sale giảm giá

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

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

Tìm Việc - Việc Làm

Mừng Đại Lễ giảm giá đến 2 triệu



kết quả từ 1 tới 2 trên 2
Đặt Galaxy S8 tặng quà 4 củ, Đặt Galaxy S8 tặng quà 4 củdinhquangvinh.com

  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
    567
    Cảm ơn
    373
    Đ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. Mua Galaxy S8 tặng quà 4 củ , Flash sale theo giờ nhanh còn kịp Cộng đồng công nghệ mới của Vn-Zoom
  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.877
    Cảm ơn
    858
    Điểm
    3.477/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)

 

 
Vn-Zoom Zalo

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
  •