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

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Bán đấu giá ủng hộ từ thiện

Ngập tràn ưu đãi cho tín đồ công nghệ tại sony show 2014

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

Tin tức công nghệ mới
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
    557
    Cảm ơn
    372
    Đ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. #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.424/1.515 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.


  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
  •