Cho N và dãy số a1,a2,a3,-an Tính tổng các số trong dãy . Giúp mik vs nhé

0 bình luận về “Cho N và dãy số a1,a2,a3,-an Tính tổng các số trong dãy . Giúp mik vs nhé”

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 trong day la’,s);

   readln

   end.

   Bình luận

2. bước 1: i:=1;t:=0;

   bước 2: nếu a[i]>0 thì t:=t+a[i];

   bước 3: i:=i+1;

   bước 4: nếu i<=n thì quay lại bước 2

   bước 5: xuất t

   bước 6: kết thúc

   Bình luận