viết chương trình nhập n số nguyên từ bàn phím (N>10) tính và in ra màn hình tổng các số vừa nhập

0 bình luận về “viết chương trình nhập n số nguyên từ bàn phím (N>10) tính và in ra màn hình tổng các số vừa nhập”

1. program ct;

   uses crt;

   var i,n,s:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   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.  uses crt;
    var n,i : integer;
    a : array[1..100] of integer;
    s : longint;
   begin clrscr;
   repeat write(‘Nhap so nguyen n:’); readln(n);
   until n>10;
   for I:=1 to n do begin write(‘Nhap so nguyen thu ‘,i,’ la :’); readln(a[i]);
   end;
   for i:=1 to n do s:=s+a[i];
   write(‘Tong cac so vua nhap :’, s:1);
   readln
   end.

   Bình luận