Viết chương trình nhập vào dãy số N phần tử, tính tổng dãy số,in ra màn hình dãy số vừa nhập và kết quả của tổng

Viết chương trình nhập vào dãy số N phần tử, tính tổng dãy số,in ra màn hình dãy số vừa nhập và kết quả của tổng

0 bình luận về “Viết chương trình nhập vào dãy số N phần tử, tính tổng dãy số,in ra màn hình dãy số vừa nhập và kết quả của tổng”

  1. Program tinh_tong;

    uses crt;

    var i, n, s, N : integer;

    A: array[1..100] of integer;

    begin

    write(‘Nhap so nguyen N: ‘); readln(N);

    write(‘Nhap do dai cua day so: ‘); readln(n);

    for i:=1 to n do

    begin write(‘A[‘,i,’]=’); readln(A[i]); end;

    for i:=1 to n do write(‘A[‘,i,’]= ‘, A[i]);

    s:=0;

    for i:=1 to n do s:=s+A[i];

    writeln(‘Tong cac so la: ‘, s);

    readln;

    End.

    Bình luận
  2. Program kthkII;

    uses crt;

    var i, n, s, N : integer;

    A: array[1..100] of integer;

    begin

    write(‘Nhap so nguyen N: ‘); readln(N);

    write(‘Nhap do dai cua day so: ‘); readln(n);

    for i:=1 to n do

    begin write(‘A[‘,i,’]=’); readln(A[i]); end;

    for i:=1 to n do write(‘A[‘,i,’]= ‘, A[i]);

    s:=0;

    for i:=1 to n do s:=s+A[i];

    writeln(‘Tong cac so la: ‘, s);

    readln;

    End.

    Bình luận

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