Viết ct nhập vào 1 mảng 1 chiều có n (n<=100) phần tử là số nguyên . Tính tổng các phần tử có trogg mảng , kết quả hiện ra màn hình

0 bình luận về “Viết ct nhập vào 1 mảng 1 chiều có n (n<=100) phần tử là số nguyên . Tính tổng các phần tử có trogg mảng , kết quả hiện ra màn hình”

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

   Bình luận

2. uses crt;

   var a: array[1..100] of integer;

   i,n: integer;

   s: longint;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]):

   s:=s+a[i];

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận