Viết chương trình nhập vào 1 dãy số nguyên . gồm n phần tử (n được nhập từ bàn phím) . hãy in ra màn hình tổng các phần tử vừa nhập

0 bình luận về “Viết chương trình nhập vào 1 dãy số nguyên . gồm n phần tử (n được nhập từ bàn phím) . hãy in ra màn hình tổng các phần tử vừa nhập”

1. program Untitled;
    uses crt;
    var
     n,i,t: Integer;
     m:array[1..100] of longint; 
   begin
    write(‘nhap so phan tu cua day : ‘);readln (n);
    for i := 1 to n do begin
     write (‘m[‘,i,’]= ‘);readln (m[i]);
    end;
    t:=0;
    for i := 1 to n do t:=t+m[i];
    writeln (‘tong cac phan tu vua nhap : ‘,t);
    readln
   end.

   

   Bình luận