Viết CT tính tổng các số nguyên liền kề nhau trong mảng, giá trị các phần tử của mảng đc nhập từ bàn phím. *Dùng kiến thức lớp 8

0 bình luận về “Viết CT tính tổng các số nguyên liền kề nhau trong mảng, giá trị các phần tử của mảng đc nhập từ bàn phím. *Dùng kiến thức lớp 8”

1. Không dùng array:

   uses crt;
   var n,i,t,a:longint;
   begin
      clrscr;
      write(‘Nhap so luong phan tu cua mang:’);readln(N);
      t:=0;
      for i:=1 to n Do 
         begin
             write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a);
             t:=t+a;
         end;
      writeln(‘Tong= ‘,t);
   readln;
   end.

   Bình luận