Viết chương trình tính tổng các phần tử lớn hơn 0 trong dãy A cho trước

0 bình luận về “Viết chương trình tính tổng các phần tử lớn hơn 0 trong dãy A cho trước”

1. uses crt;
   var a : array[1..100] of integer;
   n,i,s : integer;
   begin clrscr;
   s:=0;
    write(‘Nhap so phan tu mang :’); readln(n);
   for i:=1 to n do begin
   write(‘Nhap a[‘,i,’]=’); readln(a[i]); end;
   for i:=1 to n do write(a[i]:3);
   for i:=1 to n do if a[i]>0 then s:=s+a[i];
   write(‘Tong cac phan tu lon hon 0 la :’, s);
   readln
   end.

   Bình luận

2. 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

            if A[i]>0 then S:=S+A[i];

       writeln(‘tong cac phan tu lon hon 0 la:’,S);

   readln

   end.

   Bình luận