Em xây dựng một số chương trình còn để tính tổng dãy số nguyên từ a1, a2,…an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng Ai g

Em xây dựng một số chương trình còn để tính tổng dãy số nguyên từ a1, a2,…an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng
Ai giải giúp em với ạ em đang cần gấp

0 bình luận về “Em xây dựng một số chương trình còn để tính tổng dãy số nguyên từ a1, a2,…an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng Ai g”

  1. uses crt;
    var a:array[1..1000000] of longint;
           n,i,s:integer;
    begin
           clrscr;
           //—Nhap—
           write(‘Nhap so luong phan tu: ‘); readln(n);
           s:=0;
           for i:=1 to n do 
                  begin
                         write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                         inc(s,a[i]);
                  end;
           //—Tong—
           write(‘Tong: ‘,s);
           readln;
    end.

    Bình luận

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