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

Flash Sale khủng đã quay lại

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

Liên Hệ - For Sponsor

Back To School



kết quả từ 1 tới 2 trên 2
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. Săn Flash theo giờ nhanh còn kịp*** Cộng đồng công nghệ mới của Vn-Zoom***Deal bất ngờ mỗi ngày
  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)

 

 
Top Khuyến Mại Hàng Ngày *** Giá Sốc Trong Ngày


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
  •