viết CT nhập giá trị 20 phần tử trong mảng A, sau đó tính tổng các phần tử trong mảng vừa nhập rồi xuất kết quả ra màn hình

0 bình luận về “viết CT nhập giá trị 20 phần tử trong mảng A, sau đó tính tổng các phần tử trong mảng vừa nhập rồi xuất kết quả ra màn hình”

1. program ct;

   uses crt;

   var i,S:integer;

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

   begin

   clrscr;

     for i:=1 to 20 do

   begin

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

   end;

     S:=0;

       for i:=1 to 20 do S:=S+A[i];

          writeln(‘tong la:’,S);

   readln

   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..1000] of integer;
       n,s,i: longint;
   begin
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       s:=0;
       for i:=1 to n do
           begin
               write(‘A[‘,i,’]: ‘);
               readln(a[i]);
               s:=s+a[i];
           end;
       writeln(‘Tong cac phan tu cua mang: ‘,s);
       readln;
   end.

   Bình luận