Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp

0 bình luận về “Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp”

1. *10 số liên tiếp:

   uses crt;
   var i,s:longint;
   begin
          clrscr;
          for i:=1 to 10 do inc(s,i);
          writeln(s);
          readln;
   end.

   *10 số nhập từ bàn phím:

   uses crt;
   var a:array[1..1000000] of longint;
          i,s:longint;
   begin
          clrscr;
          for i:=1 to 10 do
                 begin
                        write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
                        inc(s,a[i]);
                 end;
          writeln(‘Tong: ‘,s);
          readln;
   end.

   Bình luận

2. program bt;

   uses crt;

   var   T,i:byte;

           a:array[1..10] of byte;

   begin

   clrscr;

             T:=0;

   for i:=1 to n do

              begin

             readln(a[i]);

             T:=T+a[i];

              end;

   writeln(T);

   readln;

   end.

   học tốt

   ^.^

   Bình luận