Viết chương trình tính tổng của 20 phần tử

Viết chương trình tính tổng của 20 phần tử

0 bình luận về “Viết chương trình tính tổng của 20 phần tử”

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

    Bình luận
  2. program tinhtong;

    uses crt;

    var A:array[1..20] of integer;

          i:byte;

          t:longint;

    begin

            clrscr;

            t:=0;

            for i:=1 to 20 do

                    begin

                            write(‘GIa tri phan tu thu ‘,i,’: ‘);   readln(A[i]);

                            t:=t+A[i];

                    end;

            write(‘Tong 20 phan tu la: ‘,t);

            readln;

    end.

    Bình luận

Viết một bình luận